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i. 


Preface 


This  is  the  user  manual  for  the  computer  simulation  model  MILHY3. 

The  volume  should  contain  all  the  information  a  potential  user 
requires  to  establish  the  data  sets  and  run  MILHY3.  In  addition/ it 
provides  detailed  program  information  and  the  computer  code.  A 
basic  review  of  the  MILHY  suite  is  provided  and  some  guidelines  on 

V  T.3 

the  selection  of  process  are  included.  Detailed  information  on  the 
development  and  validation  of  MILHY3  is  contained  within  Volume  1  of 
this  report. 
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MILHY3  -  Model  Details 


1  * 1  MILHY3 

^7  It  - -  '  _ 


MILHY''*contains  a  number  of  hydrological  and  model  control 
procedures.-  Conveniently  ,*each  of  these  is  contained  within  the 
program  implementation  in  a  separate  subroutine.- 


The  structure  of  the  MILHY  program  (Williams  and  Hann,  1972, 
1973)  is  outlined  in  figure  1.1. 


’“Hydrological  procedures^ indicated  in  the  lower  row  of  figure 
l.ll»are  invoked  to  generate  the  outflow  hydrograph  for  a 
subcatchment  area,  to  perform  routing  calculations  through  channels 
and  reservoirs,  and  to  calculate  sediment  yield.  Model  control 
procedures  are  used  to  instruct  the  program  to  begin,  to  store  a 
measured  hydrograph,  travel  time  table,  or  rating  curve,  to  add  two 
hydrographs  together,  to  provide  hard  copies  of  printed  or  plotted 

and 

information  ?/\to  perform  error  analyses  on  hydrograph  predictions,  - 
and  to  finish. 


As  modelling  begins  at  the  most  upstream  subcatchment,  and 
proceeds  downstream  by  cumulating  hydrographs,  it  is  not  necessary 
to  store  all  of  the  information  which  is  generated.  At  any  one 
time,  the  program  stores  up  to  six  hydrographs  and  six  rating  curves 
in  core  memory. 


The  hydrological  and  model  control  procedures  will  now  be 
examined  in  more  detail. 

>  Floods/ -fore  ca  si  /mo de 


{Ls,  :  C  hcxo 

yjg.'T  £  r  /S / rou  +ir,a:  (i^ar.rei  i-j£ow'}  jcaie? 
Crr.pu  T*  n  g"i£ed  S I  rr.  LJ  i  on  :  H ycfro^  ro.  n y  • 

/ c.s  / ' arad / ' is  / Con  d dc  T /  ?  Df'A  '  r  aS  '  •’ 


fiycL  ra  u  o 

\  ff/ tmyeZ  s  O-t  U  rare  oj  So  i  dd  -  moCf'--' 

5/ pot  osity  :  n  yjroso^y:  Comparer  s: 

„ . ,  .♦  J  ■  4  ,  /  '  f  -  '  /  A'i  a  - „ 

i  t  o  i  t  r )  T  o  i  < .  . 


CALL  HONDO 
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1.1.1  Hydrological  Procedures 

There  are  four  hydrological  procedures  in  MILHY.  (The  compute 
rating  curve,  compute  travel  time,  and  route  hydrograph  through 
channel  subroutines  combine  to  form  the  flood  routing  hydrological 
procedure).  It  should  be  noted  that  all  parameter  units  in  this 
subsection  are  in  imperial  units. 

Hydrograph  Computation 

A  standard  three  stage  procedure  is  used  to  generate  the  storm 
hydrograph  for  each  subcatchment.  Firstly,  a  unit  hydrograph  is 
derived  synthetically  for  each  subcatchment  area  from  its  physical 
characteristics.  Secondly,  direct  or  surface  runoff  is  determined 
from  either  an  empirically-based  curve  number  routine,  or  a 
physically-based  infiltration  model  (Anderson,  1982;  Anderson  and 
Howes,  1984),  and,  thirdly,  these  are  convolved  to  produce  the  flood 
hydrograph  for  the  subcatchment. 

A  dimensionless  unit  hydrograph  method  is  used  by  MILHY.  This 
has  been  synthesized  from  measured  hydrographs  from  34  catchments  in 
Texas,  Oklahoma,  Arkansas,  Louisiana,  Mississippi,  and  Tennessee. 
These  catchments  range  up  to  16  square  km  in  area.  The  synthesized 
dimensionless  unit  hydrograph  (figure  1.2A)  is  described  by  a  two 
parameter  gamma  distribution.  For  the  beginning  of  the  discharge 
rise  (t=0)  to  the  inflection  point  (t^),  discharge  is  given  by: 

x(n-l)  (l-n)(t/t  -1) 
u^  =  u„  (t/t  )  e 


(1.1) 


5 


Chapter  1 


Where : 


u 

P 

t 

P 

n 


k 


1 


3  -1 

unit  hydrograph  discharge  at  time  t  (ft  s  ) 

3  -1 

unit  hydrograph  peak  discharge  (ft  s  ) 
time  to  peak  (hours) 
dimensionless  parameter 
(  a  function  of  k./t  ,  figure  1.2B) 

1  p 

the  first  recession  constant 


For  tg  to  t  ,  where 


L1  = 


tQ  +  2k] 


(1.2) 


the  recession  depletion  equation  becomes: 


((t  -t)/k.) 
-  u0e  0  1 


(1.3) 


Where : 


t„  -  time  at  inflection  point  (hours) 

u  -1 
Uq  -  unit  hydrograph  discharge  at  inflection  point  (ft  s  ) 


Finally,  for  t^  to  infinity,  the  recession  depletion  equation 
becomes : 


((t.  -t)/k„) 
u^e  1  l 


Where : 


(1.4) 


k„  -  the  second  recession  coefficient  k„  =  3k. 
u^  -  unit  hydrograph  discharge  at  t^  (ft  s  ) 
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The  actual  catchment  unit  hydrograph  associated  with  a 

particular  storm  event  can  be  derived  from  this  dimensionless 

hydrograph,  provided  that  information  for  the  peak  discharge  (u^), 

the  time  to  peak  discharge  (t  )  and  the  recession  constant  (k, )  can 

P  1 

be  provided.  Where,  for  the  ungauged  catchment,  these  data  are  not 
available,  the  following  relationships  may  be  used  which  relate  the 
three  characteristics  to  measurable  basin  properties  such  as 
catchment  area,  length  of  main  channel,  and  elevation  difference, 
features  which  can  be  derived  from  a  topographic  map: 

u  =  BAQ  (1.5) 

P  t 

P 

Where : 

B  -  dimensionless  watershed  parameter,  a  function  of  n 
(figure  1.2C) 

2 

A  -  watershed  area  (miles  ) 

Q  -  total  storm  runoff  (inches) 

k1  =  27.0(A)°'2J‘(SLP)-0'777(L/W)0,124  (1.6) 

Where : 

SLP  -  elevation  difference  (feet)  between  catchment  outlet 

and  most  distant  point,  divided  by  main  channel  length 
(miles) 

L/W  -  watershed  length,  width  ratio 
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Catchment  incremental  is  derived  using  either  on  empirically 
based  Curve  Number  routine  (USDA  SCS,  1972),  or  physically-based 
infiltration  algorithm  (Anderson,  1982),  described  in  section  1.2. 

In  the  Curve  Number  procedure  rainfall,  runoff  and  storage  are 
related  in  the  following  manner: 

P  -  Q  =  _Q 

S'  P  (1.8) 

where:  P  =  total  precipitation 

S'  =  potential  maximum  storage 
Q  =  actual  runoff 

This  solution  is  simplified  by  emitting  rainfall  losses  prior  to  the 
soil  surface,  giving  a  final  solution  for  Q  of: 

Q  =  (P  -  I  )2 
a 

P  -  I  +~S  (1.9) 

a 

where:  I  =  initial  abstraction 

a 

S  =  S'  +  I 

a 

The  relationship  between  I  and  S  has  been  empirically  derived  by 

Si 

the  SCS,  and  it  is  approximately: 

I  =  0.2S  (1.10) 

a 

Substituting  this  relationship  into  equation  1.9  gives 

Q  =  (P  -  0.2S)2  for  P>0.2S  (1.11) 

P  +  0.8S 

To  apply  equation  1.11,  S  is  transformed  by  the  following  equation: 


S 


1000  -  10 
CN 


(1.12) 
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where:  CN  =  0  when  S  — *  Oo 
CN  =  100  when  S  =  0 

The  value  of  CN  for  a  catchment  is  usually  derived  from  field 
or  map  surveys  and  the  appropriate  USDA  tables.  It  represents  the 
net  effects  of  soil  type,  land  use,  hydrologic  soil  group,  and  the 
antecedent  soil  moisture  condition. 


Finally,  the  incremental  runoff  and  unit  hydrograph  are 
convolved  to  form  the  outflow  discharge  hvdrograph  according  to  the 
following  relationship: 


where : 


n  /  \ 

£^rtU(n~t) 


t=2 


For  n  >  2 


1.13 


n  -  number  of  time  intervals  of  hydrograph 

3  -1 

q  -  flood  hydrograph  discharge  at  time  t  (ft  s  ) 
r  -  runoff  at  time  t  (inches) 


Channel  Flood  Routing 

To  perform  channel  flood  routing,  the  user  invokes  the  compute 
rating  curve,  compute  travel  time,  and  route  hydrograph  through 
channel  subroutines. 

A  revised  version  of  the  Variable  Storage  Coefficient  method 
has  been  incorporated  into  MILHY.  This  represents  a  compromise 
between  very  simple  storage  models  and  those  methods  based  on  the 
principles  of  hydraulics. 
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Williams  (1969)  presents  the  Variable  Storage  Coefficient 
method,  and  provides  a  solution  for  it.  In  comparison  to  basic 
storage  routing  models,  this  method  is  considered  to  be  a  better 
approximation  to  reality  as  it  does  allow  the  storage  coefficient 
and  travel  time  to  vary  with  river  stage.  It  is  considered  to  be 
reliable  for  a  range  of  river  flow  conditions  and  reach  lengths,  and 
may  be  applied  to  routing  of  both  channel  and  flood  plain  flows. 

Application  of  this  method  requires  a  relationship  between 
stage,  end  area,  and  discharge  to  be  defined  for  the  particular 
reach.  If  a  measured  relationship  is  not  available,  it  can  be 
derived  by  application  of  the  Mannings  equation,  which  is  simple, 
easy  to  use,  and  not  too  demanding  in  terms  of  data.  Discharge  (q) 
is  given  by  the  following  equation: 

q  =  1.486  (aR2/3Sl1/2)  1.14 

n 

Where : 

n  -  Mannings  coefficient  of  roughness 

2 

a  -  cross  section  area  (ft  ) 

R  -  hydraulic  radius  (ft) 

SI  -  slope  of  energy  gradient 

Twenty  values  on  the  rating  curve  are  established  by  MILHY. 


Given  the  inflow  hydrograph  for  a  reach  with  discharge  values 
at  equal  time  intervals,  the  outflow  hydrograph  can  be  calculated 
from  the  following  equations.  As  a  variable  storage  coefficient  and 
travel  time  are  assumed,  these  equations  are  recalculated  for  each 
discharge : 
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0 

C 


t+At 

t+At 


Ct+At(I+((1/Ct)  “  1)0t] 


2  At 


2Tt+At  ^ 


1.15 

1.16 


2  At 


2T(_+A  t 


1.17 


(L)  (SLPQ)  \ 


1/2 


'1800(Vit+Vot)  /  \  (L)(SLP  )+Di  __ 


)i  -Do  J 


1.18 


'  t+At  ' ( 


f 


\  1 800 (Vi  .  +Vo  V 
t+At  t+At  7 


(L)SLP 


0 


H2 


V(L)(SLP0H  »it+At-D„t+At)/ 


1.19 


Where : 


1 

t 

0 

I 


c 

T 

L 


Vo 


SLP 


0 


Di 

Do 


At  - 


3  -1 

inflow  discharge  at  time  t  (ft  s  ) 

3  -1 

outflow  discharge  at  time  t  (ft  s  ) 

average  inflow  discharge  during  time  interval  t 

3  -Is 
(  f  t  s  ) 


I  = 


I  +  I 
t  t+At 


2 

storage  coefficient  for  particular  discharge 
travel  time  for  particular  discharge  (hrs) 
reach  length  (ft) 

velocity  of  inflow  at  time  t  (discharge  divided  by  end 
area)  (ft  s  *) 

velocity  of  outflow  at  time  t  (ft  s  *) 
normal  slope 

depth  of  inflow  at  time  t  (ft) 

depth  of  outflow  at  time  t  (ft) 

time  interval,  constant  throughout  (hrs) 


The  solution  for  these  equations  is  iterative,  but  no  convergence 
problems  have  been  experienced. 
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In  the  latest  model  version,  MILHY3,  the  channel  routing 
routine  has  been  further  developed  to  incorporate  the  effects  of 
out-of-bank  flows.  A  full  description  of  the  development  and 
validation  of  these  new  routines  is  given  in  Volume  I  of  this 
report.  The  impact  of  momentum  exchange  between  the  main  channel 
and  floodplain  flow  segments  has  been  incorporated  during  the 
development  of  the  rating  curve.  Four  techniques  are  proposed,  each 
of  which  incorporates  a  differing  position  and  length  of  an 
imaginary  shear  interface  across  which  momentum  exchange  takes 
place.  The  four  techniques  are  defined  in  Table  1.1,  and  the 
parameters  defined  on  Figure  1.3. 

In  addition  to  momentum  exchange,  multiple  routing  reaches  have 
been  incorporated,  which  allow  the  separate  routing  of  channel  and 
floodplain  flows  downstream.  This  is  particularly  useful  where  the 
main  channel  is  very  sinuous  and  floodplain  flows  take  a  more  direct 
path  downstream,  or  where  channel  and  floodplain  boundary  roughness 
values  are  widely  different. 

Reservoir  Routing 

The  Storage  Indication  method  is  used  to  route  hydrographs 
through  reservoirs  (USDA  SCS,  1972).  This  uses  the  relation: 

°t+At*2(I  +<VAt)-(st+At/At»-ot  1-2° 

This  method  requires  that  a  storage  discharge  relationship  be 
specified  for  the  reservoir. 

Sediment  Yield 


The  Universal  Soil  Loss  equation,  modified  to  allow  sediment 
yield  to  be  calculated  for  the  individual  storm,  was  incorporated 
into  MILHY.  This  relation  is  given  by: 

=  95.0 [ (q  )(R)]°*56 
P 


Sy 


(E)(Cr)(Pr) (LS ) 


1.21 


Table  1.1 


Alternative  geometric  definitions  to  Incorporate  segment  interactions 

(after  Knight  and  Hamed,  1984) 


Method 

Flood  Plain 

Area  Wetted  Perimeter 

Main 

Area 

i  Channel 

Wetted  Perimeter 

1 

(H-h) 

(B-b) 

B-b  +  H-h 

2bH 

2b  +  2h 

2 

(H-h) 

(B-b) 

B-b  +  2 (H-h) 

2bH 

2b  +  2H 

3 

(H-h) 

(B-b/2) 

B-b  +  H-h 

b(H+h) 

2b  +  2h 

4 

(H-h) 

(B-b/2) 

B-b  +  H-h 

b(H+h) 

2b  +2^2+l  / 

2((H-h)  +b' )  '  2 

Figure  1.3 

Channel  Parameter  Definit 
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where : 

Sy  - 

S  " 

R 
E 

Cr  - 
Pr  - 
LS  - 

1.1.2  Model  control  procedures 

A  number  of  model  control  procedures  are  also  included  in 
M1LHY.  These  are  illustrated  in  the  upper  row  of  figure  1.1.  The 
user  may  select  model  control  procedures  in  any  order,  or 
combination,  to  instruct  the  program  to  begin,  to  store  a  measured 
hydrograph  or  rating  curve,  to  add  two  hydrographs  together,  to 
provide  printed  or  plotted  information,  to  analyse  results  and  to 
terminate.  A  short  description  of  each  will  serve  to  illustrate  the 
flexibility  which  MILHY  offers  the  user. 


sediment  yield  (tons) 

3  -1 

peak  discharge  (ft  s  ) 
runoff  volume  (acre  ft) 
soil  erodibility  factor 
cropping  management  factor 
erosion  control  practice  factor 
slope  length  and  gradient  factor 


START  -  This  provides  the  program  with  the  start  time  for  the 
simulation  and  instructs  the  program  to  begin. 

STORE  HYDROGRAPH  -  This  allows  the  user  to  input  a  measured 
hydrograph  for  a  particular  subcatchment ,  directly  into  the  computer 
memory.  All  hydrographs  are  limited  to  300  points. 

STORE  RATING  CURVE  -  This  allows  a  measured  rating  curve  for  a 
particular  cross  section  to  be  input  directly  into  the  computer 
memory.  A  maximum  of  twenty  points  to  define  the  stage,  end  area, 
discharge  relationship,  are  permitted. 
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STORE  TRAVEL  TIME  -  This  allows  a  previously  computed  travel  time 
table  to  be  input  and  stored  in  the  program.  A  maximum  of  twenty 
points  to  define  the  depth,  flow,  travel  time  table,  are  permitted. 

ADD  TWO  HYDROGRAPHS  -  MILHY  initially  calculates  the  hydrograph  for 
the  upstream  subcatchment  area  and  proceeds  downstream  by  cumulating 
pairs  of  hydrographs.  This  model  control  procedure  adds  together 
the  coordinates  of  two  specified  hydrographs. 


PRINT  HYDROGRAPH  -  According  to  the  user's  request,  this  procedure 
will  either  print  out  the  whole  of  the  hydrograph,  or  just  the 
runoff  volume  and  peak  discharge  rate  values  to  a  user  specified 
peripheral . 


PLOT  HYDROGRAPH  -  This  enables  one  or  two  hydrographs  to  be  plotted 
out  on  the  same  axis.  The  plot  is  made  on  a  line  printer. 


ERROR  ANALYSIS  -  This  model  control  procedure  offers  a  number  of 
indices  which  detail  the  goodness  of  fit  of  two  hydrographs. 

The  first  two  measures,  the  error  standard  deviation  (ESD)  and  the 
percentage  peak  discharge  error- (PDE)  were  calculated  in  the 
original  MILHY  and  are  given  by: 


2  2 
(ESDr  =  X  (qm  -qc.) 

1  =  1  1 

n 


1.22 


whe  re : 


n 


qnij 

qCi 


number  of  pairs  of  discharge  measurements 

at  equal  time  intervals 

3  -1 

measured  discharge  (ft  s  ) 

3  -1  \ 

calculated  discharge  (ft  s  > 
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PDE  =  q  m  -  q  c  x  100% 
P  P 


where : 


q  m  -  measured  peak  discharge  (ft  s  ) 

P  3-1 

q  c  calculated  peak  discharge  (ft  s  ) 


A  number  of  additional  objective  functions  have  been  included: 
Absolute  sum  of  error  (0F1): 


I  (qm.  -  qc.) 


Ordinary  least  squares  (0F2): 


0F2  = 


Z  (qnu  -  qci) 


Log  ordinary  least  squares  (0F3): 


O 

0F3  =  Z(log(qmi)  -  log(qci))i 


Relative  sum  of  errors  (0F4): 


0F4  =  /(qn^  -  qci) 


i=l'  qm 
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Absolute 

0F5 

Relative 

0F6 

Absolute 

0F7 

where : 

Relative 

0F8 


error  difference  (0F5): 
n 

2 

=  I  ((qm.  -  qmi_1)  -  qc.  -  qc._1)) 
i=  1 


error  difference  (0F6): 


I 

i=l 


<(qm.  "  qn>i_1)  -  (qc.  -  qc.^) 


(qm.  -  qm._1) 


) 


error  divided  by  variance  (0F7): 


I  (qm.  -  qc.) 
i=l 


1.28 


1.29 


1.30 


n 

I  (qnu  -  qra)2 
i=l 

qm  -  mean  measured  discharge 

error  divided  by  variance  (0F8): 

n  1.31 

2 

I((qmi  -  qc^/qnO 
i=l 


n 

I((qmi  /qm)-l)2 
i=l 
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Absolute  error  difference  divided  by  variance  (0F9): 


2 

I  ((qm  -qm._1)-(qc.  -qc._1)) 
i  =  l 

0F9  =  _ _ _ 

n  _ 

2 

r((qmi  -qo^^)-  -qmi_1)) 

i=l 


whe  re : 


qm  -qm  ,  -  mean  of  difference  of  measured  hydrograph 
M  i  i-l 


Relative  error  difference  divided  by  variance  (OFIO): 


I(((qm  -qmi_1)-(qci  -qc^  )  )/(qin.  -qmi_i)) 
i=l 

0F10  =  _ _ _ 

n 

2 

Z(((qmi  -qmi_1)/(qmi  -  qro-.j))  -  1) 
i  =  l 


Pearsons  correlation 

coefficient 

(OF  1 1 ) : 

1 

n 

/qm.  -  qra\ 

/qc.  -  qc\ 

OF  1 1  _ 

I 

n 

i=l 

1 

\  crq™  ' 

\  cr  qc  / 
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where : 

qc  -  mean  calculated  discharge 
rrqra  ~  standard  deviation  of  measured  discharge 

Cfqc  -  standard  deviation  of  calculated  discharge 

FINISH  -  When  all  hydrological  and  model  control  procedures  which 
are  required  by  the  user  have  been  completed,  this  procedure 
instructs  the  program  to  terminate. 


1 .2  The  Physically  Based  Infiltration  Model 

This  infiltration  model  is  a  physically  based  and  dvnamic  model 
which  provides  the  capability  to  continuously  simulate  one¬ 
dimensional,  near  surface  soil  water  movement.  During  a  storm, 
water  supplied  to  the  surface  may  either  infiltrate  or  accumulate  on 
the  surface,  and  when  a  specified  surface  detention  capacity  is 
exceeded,  runoff  occurs.  When  precipitation  ceases,  water  is 
redistributed  by  drainage  and  evaporation.  This  model  is  not 
spatially  distributed,  but  all  soil  types  in  the  subcatchment  can  be 
represented  and  variability  of  soil  hydraulic  properties  may  be 
further  included  into  the  model  using  a  stochastic  Monte  Carlo 
method . 

The  inf i ltrtation  model  is  based  upon  that  developed  by 
Anderson  (1982)  and  Anderson  and  Howes  (1984).  It  should  be  noted 
that  all  parameter  units  in  this  section  are  metric. 

1.2.1  The  mathematical  model 


The  law  governing  the  flow  of  water  through  a  rigid, 
homogeneous  isotropic,  and  isothermal  porous  media,  is  derived  from 
two  equations,  Darcy's  Law,  and  the  principle  of  continuity. 
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Darcy's  Law  states  that  the  flow  of  water  through  a  porous 
medium  is  proportional  to  the  hydraulic  gradient  and  the 
conductivity : 

v  =  -K  V0  1.35 

where : 

v 

70 

V 

and : 

0  =  V  -  z  1.36 

where: 

z  -  gravitational  potential,  depth  from  surface 
where  downwards  is  positive  (metres) 

Darcy's  Law  holds  for  fluw  in  unsaturated  soils,  but  in  slightly 
modified  form,  where  K  and  U  are  functions  of  the  soil  moisture 
content  (O'). 


-K(cr)  V0 

1.37 

y(cr)-  z 

1.38 

The  principle  of  continuity  states  that  the  difference  between  the 
inflow  and  outflow  per  unit  time  is  equal  to  the  rate  of  change  in 
storage.  The  continuity  equation  is  given  by: 


marcroscopic  vector  velocity  of  water  (ms  ) 
gradient  of  total  potential  (metres)  in  3-dimensional 
space 

-  denotes  6^  +  ^  +  6^ 

6  x  6  y  6  z 


5cr  =  -7  v 

6 1 


1.39 
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where : 

t  -  time  (seconds) 

Combining  equation  1.39  with  equation  1.37  gives: 

6cr  =  7(K(a)V0)  1.40 

6 1 

Rewriting  equation  1.40  in  one  dimension,  for  vertical  flow,  where  z 
is  the  vertical  distance  taken  downward  as  positive  gives: 

5g  =  _6_  (K(cj)  60)  1.41 

6t  6z  6z 

Substituting  equation  1.38  into  equation  1.41  gives: 

60  =  _6_  (K(ff)  Jj_  0jJ(cr)-z ) )  1.42 

6t  6z  6z 

_6o_  =  _6_  (k(ct)  Jjji  (a))-  JTk  (a)  1.43 

6t  5z  6z  6z 

Equation  1.43  is  equivalent  to  the  Richards  equation.  To  solve  this 
equation  for  unsaturated  conditions,  the  hydraulic  conductivity 
function  K(0)  is  required  and  is  therefore  derived  numerically  using 
the  following  relationship  which  has  been  established  by  Millington 
and  Quirk  (1959),  and  developed  by  Campbell  (1974)  and  Jackson 
(1972).  The  relationship  is  described  by: 


K. 

l 


k  (a. /cr  )p 

S  IS 


"(2  +1-2  )!,  -2) 
j  =  i  J  J 


m  -2 
r((2  -i)v 
j=i  J  3 


1.44 
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saturated  hydraulic  conductivity  (ms  ) 

3  -3 

saturated  soil  moisture  content  (mm  ) 
number  of  equal  sized  increments  of  moisture  content 
a  constant,  the  pore  interaction  term 

A  value  of  unity  for  the  pore  interaction  term  has  been  assumed 
(Jackson,  1972). 

Several  points  concerning  the  application  of  the  Millington  and 
Quirk  method  are  relevant  to  this  application: 

1.  To  derive  reliable  results  from  the  model,  the  soil  moisture 
characteristic  curve  must  be  reliable,  and  should  span  a  wide 
range  of  moisture  values.  The  moisture  curve  should  be  a 
desorption  curve;  it  has  been  observed  that  the  pore  size 
distribution  is  not  well  described  by  the  wetting  curve. 

2.  The  method  is  not  reliable  for  fine  materials  with  a  wide  range 
of  pore  sizes,  or  for  swelling  soils.  It  is  suitable  for  soils 
with  stable  structures. 

3.  The  number  of  equal  intervals  (m,  in  equation  1.44)  into  which 
the  soil  water  characteristic  is  divided  was  found  by  Kunze  _et 
al .  (1968)  to  affect  the  prediction  of  the  hydraulic 
conductivity  function.  Ten  classes  was  found  to  be  optimal. 

The  Richards  equation  is  a  nonlinear  partial  differential 
equation,  to  which  exact  solutions  are  available  only  for  specific 
initial  and  boundary  conditions.  To  solve  equation  1.43,  it  is 
necessary  to  convert  the  mathematical  model  into  a  form  which  can  be 
solved  approximately  by  digital  computer.  After  Hillel  (1977),  the 
equations  are  converted  into  explicit  finite  difference  equations 
and  solutions  are  defined  at  discrete  points  in  space  and  time. 


Chapter  1 
where : 

K 

s 

as 

m 

P 
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Inaccuracies  due  to  approximation  by  finite  difference  can  be  made 
very  small  by  the  proper  use  of  the  method.  In  any  case,  errors  are 
usually  outweighed  by  inaccuracies  in  the  specification  of 
subsurface  hydrological  parameters.  An  explicit  method,  otherwise 
known  as  a  forward  difference  method,  uses  coefficient  and  variable 
values  at  the  beginning  of  a  time  step  to  predict  values  of 
dependent  variables  at  the  end  of  the  time  step. 

The  explicit  solution  is  a  simple  algorithm,  but  it  does  not 
display  the  best  convergence  or  stability  characteristics.  It  is 
usually  only  conditionally  stable  and  convergence  depends  upon  small 
time  and  space  increments.  Consequently,  a  large  number  of 
computations  are  necessary.  As  a  check  on  stability,  throughout  the 
simulation,  a  mass  water  balance  calculation  is  repeated  to  identify 
whether  numerical  errors  are  large,  and,  if  so,  to  identify  where 
they  become  a  serious  problem.  The  mass  water  balance  calculation 
is  described  by  the  following  equation: 


If  the  value  of  (BAL)  increases  as  the  simulation  proceeds, 
then  either  the  time  increment  or  the  cell  dimensions  have  to  be 
reduced.  In  practice,  the  spatial  and  temporal  increments  must  be 
kept  small. 
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1.2.2  Basic  structure  of  the  infiltration  model 


In  order  to  apply  the  mathematical  infiltration  model  which  has 
been  described  in  the  previous  section,  each  major  soil  type  in  the 
catchment  is  represented  as  a  soil  column.  The  structure  of  the 
soil  column  is  indicated  in  figure  1.4.  It  is  divided  into  up  to 
three  layers;  each  is  permitted  to  have  different  hydrological 
properties.  All  layers  are  further  divided  into  cells,  and  flow 
between  the  midpoints  of  each  cell  is  simulated  under  both  saturated 
and  unsaturated  conditions.  Detention  capacity,  expressed  as  an 
equivalent  depth  of  water  on  the  soil  surface  has  to  be  exceeded  by 
rainfall  excess  before  runoff  begins.  When  precipitation  ceases, 
this  store  is  depleted  by  infiltration  and  evaporation.  Detention 
capacity  is  the  only  model  parameter  which  is  not  a  measurable 
characteristic.  It  is  not  physically  based,  but  represents  the  net 
effect  of  vegetation,  interception,  litter  interception,  and  surface 
detention.  Its  value  also  reflects  the  antecedent  moisture 
conditions  of  vegetation  and  litter.  The  model  can  accommodate 
dynamic  changes  in  model  structure;  it  allows  water  tables  and 
perched  water  tables  to  develop  and  fluctuate  through  time. 

1.2.3  Data  requirements 

The  data  which  are  required  by  the  infiltration  model  are 
discussed  in  Chapter  2.  The  soil  hydrological  characteristics  are 
parameters  which  may  not  be  commonly  available  for  the  ungauged 
catchment.  It  is  suggested  that  the  series  of  charts  and  regression 
equations  which  were  developed  by  Brakensiek  and  Rawls  (1983)  for 
the  ungauged  application  of  the  Green  and  Ampt  infiltration  model, 
may  prove  very  useful  in  deriving  the  soil  hydrological  parameters 
required  by  the  Richards  equation.  These  charts  and  equations  also 
allow  the  routine  use  of  the  infiltration  model  for  the  ungauged 
catchment  (Anderson  and  Howes,  1984;  Anderson  et  al.,  1985; 

Anderson  and  Howes,  1986). 
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PRECIPITATION  EVAPORATION 


RUNOFF 


-SURFACE  DETENTION 
CAPACITY 
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°IST  (1)rf  *  TCOM  (1) 

S  \  DEPTH  (I) 
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CELL  (I) 

O 
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__  BOUNDARY  (I) 


__  BOUNDARY  (1+1) 


CELL(N) 


(DRAINAGE) 


Figure  1 . 4 

Schematic  Structure  of  the  Infiltration  Algorithm 
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The  charts  and  regression  equations  were  developed  from 
simulations  based  upon  approximately  5,000  soil  data  sets  in  the 
United  States,  and  represent  average  soil  conditions  prior  to  a 
particular  agronomic  practice.  Figure  1.5  indicates  that 
information  concerning  the  percentage  sand,  clay  and  organic  matter 
of  a  soil  is  all  that  is  required  '■o  derive  the  moisture  contents 
corresponding  to  a  broad  selection  of  suction  values.  Soil  texture 
data  are  used  to  derive  the  mineral  bulk  density;  these  together 
with  the  percentage  organic  matter  are  used  to  determine  soil  bulk 
density,  and  all  are  then  used  in  the  regression  equations  to 
provide  the  moisture  content  at  a  number  of  specified  suction 
values.  The  soil  water  potential  at  air  entry  is  derived  from  a 
table  published  by  Rawls  et  al .  (1982)  and  which  is  reproduced  in 
part  in  Table  1.2,  and  this  provides  an  additional  point  for  the 
soil  moisture  characteristic  curve.  Figure  1.6  illustrates  the  two 
charts  from  which  values  of  saturated  hydraulic  conductivity  and 
saturated  moisture  content  can  be  derived  relating  to  the  soil's 
percentage  of  clay  and  sand. 

1.2.4  Stochastic  infiltration  model 


One  of  the  major  problems  in  applying  the  infiltration  equation 
to  c\  catchment  is  the  spatial  variation  of  the  soil's  physical,  and 
therefore  hydrological,  properties.  This  variability  leads  to  a 
lack  of  confidence  in  a  deterministic  model  and  thus  a  stochastic 
approach  can  additionally  be  adopted.  Such  a  framework  has  been 
introduced  into  the  infiltration  model  in  an  attempt  to  incorporate 
estimates  of  known  spatial  variability  within  a  soil  type,  and  to 
establish  its  consequences  upon  the  predicted  hydrograph.  Thus  i 
probability  distributed  model  has  been  developed. 

The  variability  of  the  five  soil  hydrological  properties 
necessary  to  operate  the  model:  detention  capacity,  the  soil 
moisture  characteristic  curve,  saturated  soil  moisture  content, 
saturated  hydraulic  conductivity,  and  initial  soil  moisture 
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Evaluates  soil  bulk  density  (SBD) 

_ 100 _ 

SBD  =  %org.  matter  +  100-%  org. matter 
0224  MBD 


Table  used  to  derive  O'  for  each  given 
V  using  the  regression  equation  : 


O'  =  aj+bi(%sand)  +  ci  (%clay)  + 
dj  (%org.matter)  +  e,(SBD) 


Matric 
Poten 
tial  - 
Bars 

a 

b 

c 

d 

e 

R2 

0  4  180 

0  0021 

0  0035 

0.0232 

-00859 

0.75 

0.3486 

-0  0018 

00039 

0  0228 

-00738 

0.78 

02819 

00014 

0  0042 

0.0216 

-0.0612 

0.78 

-10 

0.2352 

-0  0012 

0  0043 

0  0202 

-0.0517 

0.76 

-20 

0  1837 

-0  0009 

0  0044 

0  0181 

-0  0407 

0  74 

•4  0 

0  1426 

0  0007 

0.0045 

00160 

-0.0315 

0.71 

-7  0 

0  1  155 

-0  0005 

0  0045 

0.0143 

-00253 

069 

-100 

0  1005 

-0  0004 

0.0044 

0.0133 

-00218 

067 

-150 

0  0854 

-0  0004 

0.0044 

0.0122 

-0.0182 

0.66 

Suction  -  moisture  curve 


Figure  1.5 

Derivation  of  the  Suction-Moisture  Curve  from  Soil  Texture 

Information 


(after  Brakensiek  and  Rawls,  1983) 
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Table  1.2 


Bubbling  pres 

sure  classified 

by  soil  texture 

(adapted  from  Rawls  et  al. , 

1982,  Table  2) 

Texture 

Sample 

Bubbling  pressure 

class 

size 

(metres ) 

Sand 

762 

0.15 

Loamy  sand 

338 

0.21 

Sandy  loam 

666 

0.30 

Loam 

393 

0.40 

Silt  loam 

1206 

0.51 

Sandy  clay 

loam 

49  8 

0.59 

Clay  loam 

366 

0.56 

Silt  clay  loam 

689 

0.70 

Sandy  clay 

45 

0.79 

Silty  clay 

127 

0.77 

Clay 

291 

0.86 
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Figure  1.6 

Derivation  of  Saturated  Hydraulic  Conductivity  and 
Saturated  Moisture  Content  from  Soil 
Texture  Information 
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conditions,  is  described  by  conventional  statistics.  Each  is 
considered  to  be  an  independent  random  variable  and  may  be  described 
by  a  suitable  probability  density  function,  derived  from  the 
literature.  There  is  evidence  that  log-normally  distributed 
hydraulic  conductivity  and  other  soil  hydrological  properties  have 
been  shown  to  display  normal  distributions.  For  this  model, 
detention  capacity  was  assumed  to  be  normally  distributed.  It  is 
acknowledged  that  catchment  variability  is  not  without  spatial 
structure,  but  insufficient  geostatistical  information  describing 
the  characteristics  of  this  structure  is  currently  available  for 
incorporation  into  the  model.  The  assumption  of  independence  will, 
however,  provide  predictions  for  the  'worst  case*  situation; 
incorporation  of  spai ial  autocorrelation  would  decrease  model  output 
variance. 

A  procedure  has  been  built  into  the  infiltration  model  program 
which  generates  random  values  for  the  five  soil  hydrological 
pa!ameters.  The  random  number  generator  which  has  been  used  is  a 
NAG  (Numerical  Algorithm  Group)  routine,  reference  number  G05DDF, 
which  returns  a  'pseudo-random'  number  from  a  normal  probability 
distribution.  There  are  three  requirements  to  generate  the  random 
numbers  in  the  infiltration  model  for  each  of  the  five  input 
parameters : 

1.  The  specification  of  a  probability  distribution. 

This  is  an  expression  of  the  relative  likelihood  of 
different  parameter  values. 

2.  The  mean  and  standard  deviation. 

The  mean  reflects  the  average  value  of  the  parameter  and  the 
standard  deviation  reflects  the  magnitude  of  error  of  the 
estimate . 

3.  The  ranges  of  the  physically  allowable  parameter  values. 

These  reflect  some  knowledge  of  the  possible  field  ranges. 
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The  NAG  routine,  G05DDF,  is  therefore  called  which  returns  the 
random  value  from  a  normal  distribution  provided  that  the  mean  and 
standard  deviation  are  specified.  The  normal  distribution  in  this 
algorithm  is  given  by: 

p(x) 


where : 

p(x) 

a 

X 

As  neither  the  normal  nor  log-normal  distributions  are  bounded 
at  the  tail,  there  is  a  small  probability  of  randomly  generated 
values  assuming  negative  values.  Checks  are  therefore  performed  on 
the  generated  values,  to  ensure  physical  consistency.  Total 
independence  of  the  five  parameters  cannot  be  assumed.  Many  checks 
which  are  enforced  involve  adjusting  parameter  values  according  to 
the  values  which  have  been  generated  for  the  other  parameters. 

The  procedure  for  the  stochastic  variation  of  each  of  the  five 
parameters  will  be  discussed  in  turn. 

Detention  capacity 

The  random  number  generated  from  the  normal  distribution  is 
constrained  only  by  the  condition  that  it  cannot  assume  a  value  of 
less  than  zero.  If  the  generated  value  does  fall  below  this  limit, 
it  is  set  to  zero. 


1 


r(  2ucr) 


exp 


/  ~(x~x)2\ 

v  2CT2  ) 


1.46 


probability  of  (x) 
standard  deviation 
mean 
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Saturated  soil  moisture  content 


As  the  infiltration  model  is  capable  of  simulating  up  to  three 
hydraulically  different  layers,  three  different  means  and  standard 
deviations  may  be  entered  into  the  program.  The  value  is  generated 
randomly  for  each  layer  from  the  normal  distribution  and  then 
checked  against  the  largest  moisture  value  in  the  soil  moisture 
characteristic  curve.  If  the  saturated  soil  moisture  content  is 
smaller  than  this  value,  then  it  is  reset  equal  to  the  largest 
moisture  values  in  the  curve. 

Soil  moisture  characteristic  curve 


As  for  the  saturated  soil  moisture  content,  up  to  three  curves 
may  be  input  to  the  model,  one  for  each  layer  in  the  soil  column. 

For  each  curve  and  for  each  tension  the  moisture  content  is  allowed 
Lo  vary  according  to  the  normal  distribution  with  a  given  mean  and 
standard  deviation.  The  procedure  begins  with  the  smallest  moisture 
content.  If  this  randomly  generated  value  is  less  than  zero,  then 
its  value  is  set  to  0.001.  Random  numbers  are  then  generated  for 
the  other  moisture  contents.  If-  any  randomly  generated  value  is 
less  than  or  equal  to  the  previous  values,  then  it  is  set  equal  to 
the  value  plus  a  small  increment.  Thus  reverse  gradients  are  not 
allowed  to  develop  in  the  curve.  The  largest  moisture  value  is 
finally  compared  to  the  saturated  soil  moisture  content  as  has  been 
described . 

An  alternative  method  would  be  to  randomly  generate  one 
moisture  value,  to  then  find  the  difference  between  the  randomly 
generated  moisture  value  and  the  mean,  and  finally  to  increment  all 
moisture  values  by  this  difference.  However,  this  procedure  would 
not  allow  variation  in  the  standard  deviation  with  soil  moisture 
tension  and  there  is  evidence  in  the  literature  that  this  may  be  the 


case . 
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Saturated  hydraulic  conductivity 

Again,  a  mean  and  standard  deviation  can  be  entered  for  each 
layer.  As  this  parameter  is  considered  to  be  log-normally 
distributed,  for  each  layer,  the  logarithm  of  the  mean  is  taken. 
This  is  used  to  generate  the  random  number  from  the  normal 
distribution  and  the  ant i logarithm  of  the  generated  number  is  then 
taken.  There  are  no  checks  on  the  generated  value. 

Initial  moisture  content 


The  randomly  generated  value  for  initial  moisture  content  is 
generated  for  each  cell  in  the  soil  column.  Each  is  compared  to  the 
saturated  soil  moisture  content  for  the  relevant  layer.  If  it 
exceeds  this  value,  then  it  is  set  equal  to  the  limit.  The  initial 
moisture  content  is  also  checked  against  the  moisture  values  in  the 
soil  moisture  characteristic  curve  for  the  layer.  To  calculate 
unsaturated  conductivity  values,  the  initial  moisture  content  of 
each  cell  must  lie  within  this  range. 

1.2.5  Implementation 

The  infiltration  model,  which  includes  the  option  as  to  whether 
or  not  a  stochastic  application  is  required,  was  developed  on  a 
mainframe,  the  Honeywell  6800  under  Multics.  All  further  develop¬ 
mental  work  and  validation  was  undertaken  on  the  SUN  3/60 
workstation  under  Unix.  Figure  1.7  indicates  the  alternative 
procedures  available  within  the  MILHY  model  suite.  The  stochastic 
model  does  produce  more  than  one  hydrograph  and  these  are  all 
stored.  All  hydrographs  produced  may  then  be  plotted  out,  or, 
alternatively,  statistics  which  describe  the  characteristics  and  the 
variability  of  the  predicted  hydrographs  may  be  calculated. 

In  application  of  the  infiltration  algorithm  for  runoff 
prediction  to  a  catchment  or  subcatchment,  the  area  does  not  have 
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to  be  assumed  to  be  homogeneous.  Soil  conditions  can  be  represented 
by  more  than  one  soil  column.  Soil  hydrological  information  for 
each  of  the  major  soil  series  or  groups  in  the  area  is  used  to  set 
up  a  soil  column  (figure  1.4)  for  each  soil  type.  In  order  to 
combine  the  relative  contributions  of  runoff  provided  by  each  of  the 
soil  types,  the  complete  storm  is  applied  to  each  of  the  soil 
columns,  and  the  incremental  runoff  produced  by  each  is  weighted 
according  to  the  percentage  area  of  the  catchment  occupied  by  that 
particular  soil  type.  These  relative  contributions  are  then  summed 
to  produce  the  total  runoff  volume  derived  from  the  subcatchment. 

It  should  be  stressed,  however,  that  the  relative  locations  of  each 
soil  type  are  not  explicitly  taken  into  account. 

Any  decision  concerning  the  number  of  soil  columns  which  will 
be  used  to  describe  the  subcatchment  area  will  have  to  trade  the 
advantages  of  a  more  complete  representation  of  the  conditions  with 
the  disadvantages  of  an  increase  in  data  acquisition  and  computer 
requirements  and  will  depend  upon  the  user's  requirements.  The  user 
is  recommended  to  read  Chapter  7  in  Volume  1  of  this  report,  where 
guidelines  are  given  for  the  selection  of  process  modules  In  the 
MILHY3  suite. 
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MILHY3  -  Data  Sets 


2.1  Introduction 


All  input  data  for  MILHY3  is  contained  in  'datal'  and  'data2' 
data  sets.  The  basic  nature  of  these  two  data  sets  remains 
unchanged  from  MILHY2,  where  program  commands  and  hydrological  data 
are  provided  in  'datal'  and  soils  data  for  the  infiltration 
algorithm  are  provided  in  'data2'.  In  MILHY3  both  files  are  assumed 
to  exist  irrespective  of  the  use  of  the  infiltration  algorithm.  A 
summary  of  the  nature  of  the  data  preparation  and  checking 
procedures  is  shown  in  Figure  2.1. 

This  chapter  is  split  into  three  parts:  a  description  of  the 
two  data  sets,  and  a  worked  example  with  results. 

2.2  Data  Set  'datal' 


The  'datal'  data  set  contains  all  the  hydrological  procedures 
and  consequent  data  requirements  and  the  model  control  procedures 
for  a  simulation.  There  are  fifteen  legal  commands  accepted  by 
MILHY3,  which  must  be  entered  in  columns  1-20  of  the  data  set.  No 
typing  or  spelling  errors  are  accepted  and  on  most  machines  the 
commands  must  be  in  upper  case.  The  legal  commands  are:- 

Model  control  procedures: 

START 
STORE  HYD 

STORE  RATING  CURVE 
STORE  TRAVEL  TIME 
ADD  HYD 
PRINT  HYD 
PLOT  HYD 
ERROR  ANALYSIS 


FINISH 


COMPUTER  PROGRAM 
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Figure  2 . 1 

Data  Preparation  and  Checking  Procedures  for  the  MILHY3  Scheme 
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Figure  2.2 

ocation  of  example  simulation.  River  Fulda,  West  Ge 
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Hydrological  procedures: 

COMPUTE  HYD 

COMPUTE  RATING  CURVE 

COMPUTE  TRACEL  TIME 

ROUTE 

ROUTE  RESERVOIR 

SEDIMENT  YIELD 

An  in  column  1  means  that  the  line  is  a  comment. 

An  in  column  80  means  skip  to  a  new  page  before  writing  to  file. 

Each  of  these  commands  requires  some  further  identification 
data  or  f ield/ topographic  data.  All  data  must  be  entered  in  columns 
21-80,  and  it  must  appear  in  the  order  specified.  The  data  may  be 
surrounded  by  as  much  text  as  required  by  the  user  for 
identification,  but  care  should  be  taken  that  such  identifiers  do 
not  include  any  numbers.  Data  is  separated  by  at  least  one  blank 
space  between  each  data  item. 

Six  hydrographs  can  be  stored  in  a  MILHY  program  at  a  time. 

The  hydrographs  are  identified  by  storage  location  numbers  1  through 
6.  Therefore,  the  same  storage  location  number  must  be  used  for 
many  hydrographs  in  a  MILHY  program.  This  is  especially  true  when 
routing  is  done  through  large  watersheds.  However,  no  more  than  six 
hydrographs  are  ever  needed  at  one  time  because  MILHY  programs  begin 
at  the  head  of  a  watershed  and  work  downstream  through  one  reach  at 
a  time.  When  a  storage  location  number  is  used  to  store  or  compute 
another  hydrograph,  the  first  hydrograph  is  lost.  The  user  should 
be  sure  that  the  hydrograph  will  not  be  referred  to  again  before 
using  the  storage  location  number  for  another  command. 

To  store,  compute,  or  route  a  hydrograph,  the  user  must 
specify  the  time  increment.  There  are  no  rigid  rules  about 
selecting  the  time  increment,  but  generally  it  should  not  be 
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greater  than  one-fifth  of  the  time  to  the  peak  of  the  hydrograph. 
This  rule  usually  provides  enough  points  to  adequately  define  the 
hydrograph.  All  hydrographs  are  limited  to  300  points. 

For  the  commands  STORE  HYD ,  COMPUTE  HYD,  ROUTE  and  ROUTE 
RESERVOIR,  the  user  must  specify  the  number  of  the  outflow 
hydrograph.  The  hydrograph  identification  numbers  are  used  to 
designate  specific  routing  reaches,  incremental  areas,  reservoirs, 
and  partial  hydrographs.  The  partial  hydrograph  number  is  given  to 
all  hydrographs  other  than  outflow  hydrographs  from  reaches, 
incremental  areas,  or  reservoirs.  The  recommended  identification 
numbers  for  each  group  are: 


Reaches . . . 1-100 

Partial  hydrographs . 101-300 

Incremental  areas. . 301-500 

Reservoirs . . . 501  + 


Each  of  the  fifteen  legal  commands  and  their  data  requirements 
are  now  described  in  detail  and  summarised  in  Table  2.1.  An  example 
data  set  and  results  file  is  documented  in  section  2.4. 


START 


The  first  command  for  any  watershed  is  START.  The  three  data 
items  associated  with  this  command  are  the  time  start  and  the 
control  data  specifying  the  units  of  data  input  and  output.  A  code 
of  zero  indicates  imperial  units  are  to  be  used,  a  value  of  1 
indicates  metric  units. 
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STORE  HYD 


The  STORE  HYD  command  is  used  to  store  the  coordinates  of  a 
hydrograph  in  the  computer.  It  can  be  used  for  storing  measured 
hydrographs  or  hydrographs  computed  by  methods  other  than  the  ones 
used  in  MILHY.  The  input  data  required  for  STORE  HYD  are  storage 
location  number,  hydrograph  identification  number,  time  increment, 
watershed  area,  and  flow  rates  of  the  hydrograph  at  the  specified 
time  increment. 

COMPUTE  HYD 


The  COMPUTE  HYD  command  is  used  to  compute  hydrographs  from 

the  incremental  areas  of  the  watershed.  The  first  five  items  of 

data  are  storage  location  number,  hydrograph  identification  number, 

time  increment,  watershed  area,  and  SCS  runoff  curve  number.  A  zero 

value  is  entered  for  the  SCS  CN  if  the  infiltration  algorithm  is  to 

be  invoked.  Normally,  data  items  6  and  7  are  watershed  height  and 

main  stream  length.  The  height  and  length  are  used  to  compute  the 

recession  constant  K  and  the  time  to  peak  t  .  However,  if  K  and  t 

P  P 

are  known  or  estimated  by  some  other  method,  they  can  be  entered 

directly  into  the  program.  This  is  accomplished  by  placing  a  minus 

sign  before  the  values  of  K  and  t  and  entering  them  as  data  items  6 

P 

and  7,  respectively.  The  remaining  data  items  are  values  of  the 
cumulative  rainfall  at  the  specified  time  increment. 

Since  most  watersheds  have  a  limited  number  of  rain  gauges, 
the  same  mass  rainfall  data  may  be  used  to  develop  several 
hydrographs . 

PRINT  HYD 


The  PRINT  HYD  command  is  used  to  print  coordinates  of  a 
hydrograph,  volume  of  runoff,  and  peak  flow  rate.  The  required 
input  data  are  the  storage  location  number,  peak-volume  code,  rating 


42 


Chapter  2 

curve  storage  location,  number  and  format  identifier.  The  peak- 
volume  indicator  is  used  to  identify  the  form  of  hydrograph  output. 

A  zero  value  would  produce  just  peak  discharge  and  hydrograph  volume 
data.  A  value  of  1  would  produce  the  whole  discharge  hydrograph, 
whilst  a  value  of  2  would  generate  a  stage  hydrograph  utilising  the 
rating  curve  identified  as  the  third  data  input.  The  format 
identifier  if  set  to  1  will  produce  a  hydrograph  as  a  single  column 
of  data,  without  the  time  interval  data.  This  enables  easier 
transfer  of  data  to  graphics  or  statistical  packages.  A  format 
value  of  zero  will  retain  the  normal  five  column  MILHY  output. 

PLOT  HYD 


The  PLOT  HYD  command  is  used  to  plot  hydrographs  in  a  MILHY 
program.  It  will  plot  one  hydrograph  on  a  set  of  axes,  or  if  a 
comparison  is  desired,  it  will  plot  two  hydrographs  on  the  same  set 
of  axes.  The  required  input  data  are  the  storage  location  numbers 
of  the  hydrographs  to  be  plotted. 

ADD  HYD 


The  ADD  HYD  command  adds  the  coordinates  of  any  two 
hydrographs.  The  hydrographs  are  added  at  a  time  increment  equal  to 
that  of  the  hydrograph  with  the  shorter  time  increment.  The  only 
data  required  are  the  storage  location  number  and  hydrograph 
idenfication  number  of  the  added  hydrograph  and  the  storage  location 
numbers  of  the  two  hydrogrgaphs  to  be  added. 

STORE  RATING  CURVE 


The  STORE  RATING  CURVE  command  is  used  to  store  rating  curves 
that  have  been  measured  or  computed  previously.  STORE  RATING  CURVE 
will  save  considerable  computer  time  if  measured  or  computed  rating 
curves  are  available.  The  input  data  are  the  storage  location 
number,  valley  section  number  and  individual  rating  curve  points 
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described  by  elevation,  end-area,  and  flow  rate.  The  number  of 
points  used  to  describe  a  rating  curve  is  limited  to  20. 

COMPUTE  RATING  CURVE 

The  COMPUTE  RATING  CURVE  command  is  used  to  compute  the 
stage-area-flow  relationship  for  a  valley  section.  The  input  data 
and  storage  location  number,  momentum  exchange  indicator,  multiple 
routing  indicator,  valley  section  number,  number  of  segments  in  the 
valley  section,  minimum  elevation,  maximum  elevation,  channel  and 
flood-plain  slopes,  Manning's  n  value,  and  segment  boundary  point 
for  each  segment,  and  horizontal  and  vertical  position  of  points 
describing  the  valley  section. 

The  storage  location  numbers  of  the  valley  sections  in  a 
particular  reach  must  begin  with  1,  and  increase  by  one  for  each 
valley  section  in  the  reach.  However,  the  numbers  are  assigned 
without  regard  to  upstream  or  downstream  order.  The  valley  section 
identification  number  can  be  any  number  from  0.1  to  999.9.  These 
rules  concerning  storage  location  and  valley  section  identification 
numbers  also  apply  to  the  STORE  RATING  CURVE  command. 

Normally,  valley  sections  are  divided  into  three  segments  (two 
flood-plain  segments  and  channel  segment)  for  computing  the  rating 
curve.  However,  some  valley  sections  may  have  more  than  one 
channel,  or  may  have  an  extreme  variation  in  n  values  acrcoss  the 
flood  plain,  thus  requiring  more  than  three  segments.  A  maximum  of 
six  segments  is  permitted.  Manning's  values  for  each  segment  are 
input  with  segment  boundary  point  (distance  from  the  beginning  of 
the  valley  section  to  the  end  of  the  segment).  Flood-plain  n  values 
are  positive  and  channel  n  values  are  negative. 

Twenty  points  are  used  to  define  a  rating  curve.  The  location 
of  the  points  is  determined  by  dividing  the  difference  between  the 
maximum  and  minimum  elevations  into  19  equal  increments. 
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The  momentum  exchange  indicator  determines  which  of  four 
techniques  is  used  to  develop  the  rating  curve  under  out-of-bank 
conditions.  A  zero  value  will  ensure  the  MILHY  or  MILHY2  version  is 
utilised.  Otherwise  a  value  of  1,2,3  or  4  must  be  selected,  where  1 
introduces  the  least  momentum  exchange  and  4  the  most.  Technique  4 
will  therefore  reduce  the  computed  discharge  capacity  at  a 
particular  stage  elevation  in  comparison  to  technique  1. 

The  multiple  routing  indicator  (set  to  1  to  invoke,  0  to  not 
invoke)  will  cause  separate  rating  curves  to  be  developed  for  each 
flow  segment.  The  flow  segments  can  then  be  routed  separately 
downstream  using  a  COMPUTE  TRAVEL  TIME  and  ROUTE  command  for  each 
flow  segment. 

COMPUTE  TRAVEL  TIME 

The  COMPUTE  TRAVEL  TIME  command  is  used  to  compute  the  normal  flow 
travel  time  relationship  used  in  ROUTE.  The  input  data  are  storage 
location  number,  reach  identification  number,  number  of  valley 
sections  in  the  reach,  reach  length,  slope,  multiple  routing 
indicator,  and  rating  curve  segment  identifiers.  The  reach 
identification  number  can  be  any  number  from  0.1  to  999.9.  The 
maximum  number  of  valley  sections  per  reach  is  six.  The  slope  can 
be  either  the  channel  or  flood-plain  slope  or  a  weighted  average  of 
the  two.  If  flow  is  confined  to  the  channel,  the  channel  slope  is 
of  course  applicable.  If  most  of  the  flow  is  in  the  flood  plain, 
usually  the  flood-plain  slope  is  used.  However,  a  weighted  slope 
based  on  the  relative  rates  of  flow  in  the  channel  and  the  flood 
plain  may  be  used. 

The  COMPUTE  TRAVEL  TIME  command  considers  each  rating  curve  in 
the  reach  in  computing  the  travel  time  flow  relationship.  COMPUTE 
TRAVEL  TIME  automatically  selects  the  flow  rates  that  are  used  in 
computing  individual  travel  times.  The  flow  rates  oc  the  rating 
curve  with  the  lowest  maximum  flow  rate  are  chosen.  If  the  flow 


45 


Chapter  2 

rates  of  any  other  rating  curve  in  the  reach  were  chosen,  the  rating 
curve  with  the  lowest  maximum  flow  rate  would  have  to  be 
extrapolated.  The  travel  time  table  is  limited  to  19  points, 
because  of  the  20-point  limit  for  rating  curves. 

If  multiple  routing  is  invoked,  only  two  rating  curve  flow 
segments  are  investigated.  These  segment  rating  curves  are 
identified  using  a  two  digit  number.  The  first  digit  is  the  storage 
location  number  used  in  the  COMPUTE  RATING  CURVE  comman'1  when  the 
segment  rating  curve  was  developed.  The  second  digit  is  the  segment 
number. 

STORE  TRAVEL  TIME 


The  input  data  for  STORE  TRAVEL  TIME  are  storage  location 
number,  reach  identif ication  number,  reach  length,  slope,  and 
individual  points  of  the  relationship  defined  by  depth,  flow,  and 
travel  time. 

ROUTE 


The  ROUTE  command  is  used  to  route  floods  through  streams  and 
valleys.  The  input  data  are  storage  location  number  and  hydrograph 
identification  number  of  the  outflow  hydrograph,  storage  location 
number  of  the  inflow  hydrograph,  time  increment,  and  multiple 
routing  indicator.  The  storage  location  number  of  the  outflow 
hydrograph  must  be  the  same  as  the  storage  location  number  used  in 
COMPUTE  TRAVEL  TIME  for  the  reach.  To  prevent  unnecessary  program 
stoppage,  ROUTE  extrapolates  the  travel-time  table  when  it  is 
exceeded  and  writes  the  message,  "TRAVEL  TIME  TABLE  EXCEEDED". 

If  multiple  routing  is  invoked,  a  separate  ROUTE  and  COMPUTE 
TRAVEL  TIME  command  is  needed  for  each  flow  segment. 
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ROUTE  RESERVOIR 

The  ROUTE  RESERVOIR  command  is  used  to  route  floods  through 
reservoirs.  The  input  data  are  storage  location  number  and 
hydrograph  identification  number  of  the  outflow  hydrograph,  storage 
location  number  of  the  inflow  hydrograph,  and  individual  points  of 
the  reservoir's  outflow-storage  relationship.  The  outflow-storage 
relationship  must  be  expressed  in  20  points  or  less.  If  the 
outflow-storage  relationship  is  exceeded,  ROUTE  RESERVOIR  will 
extrapolate  the  relationship  and  write  the  message,  "STORAGE- 
DISCHARGE  TABLE  EXCEEDED". 

ERROR  ANALYSIS 

The  ERROR  ANALYSIS  command  is  used  to  determine  the  error 
standard  deviation  and  the  percentage  error  in  peak  flow  between  any 
two  hydrographs  in  a  MILHY  program.  These  functions  make  ERROR 
ANALYSIS  useful  in  research.  The  input  data  are  the  storage 
location  numbers  of  the  two  hydrographs  to  be  analyzed. 

SEDIMENT  YIELD 


The  SEDIMENT  YIELD  command  is  used  to  compute  the  sediment 
yield  at  any  point  in  a  watershed.  Input  data  required  are  storage 
location  number  of  the  hydrograph  from  the  area,  a  soils  factor,  a 
crop  factor,  a  slope  length  and  gradient  factor,  and  a  conservation 
practice  factor. 

FINISH 


The  FINISH  command  is  used  to  end  MILHY  programs.  There  are 


no  data  associated  with  FINISH 
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Data  for  legal  commands  of  MILHY3 
in  'datal'  data  set 


HYDROLOGICAL  PROCEDURE 


Variable  used  in  subroutine 


COMPUTE  HYD 


Storage  location  number  for  hydrograph  ID 

Hydrograph  identification  number  NHD 

Time  increment  for  rainfall  data  (hours)  DT(ID) 

Watershed  area  (sqmi/km  )  DA(ID) 

Curve  number  (enter  zero  if  not  invoked)  CN 

Watershed  height,  maximum  difference  (ft/m)  HT 

Main  stream  length  (mi/km)  XL 

Rainfall,  cumulative  totals  (inches/mm)  RAIN(300) 


COMPUTE  RATING  CURVE 

Storage  location  number  for  rating  curve 
Turbulent  exchange  of  momentum  between 
segments  (not  invoked  enter  0) 

(invoked,  enter  1-4  depending  on  method) 
Multiple  routing  reaches 
(not  invoked  enter  0) 

(invoked  enter  1) 

Valley  section  location  number 

Number  of  segments  in  channel  (max.  of  6) 

Minimum  elevation  (ft/m) 

Maximum  elevation  (ft/ra) 

Channel  slope 

Floodplain  slope 

Manning  'n'  for  each  segment 

(negative  value  for  channel  segments) 
Segment  boundary  points  (horizontal  distance) 
(ft/m) 

Cross-section  co-ordinates  (distance  then 
elevation)  (ft/m) 


ID 

IT 


MR 


VS 

NSEG 

ELO 

EMAX 

SLOPE  1 

SL0PE2 

SEGN(NSEG) 

DIST(NSEG) 

DATA( 12,311) 


COMPUTE  TRAVEL  TIME 


Storage  location  of  travel  time  table  ID 

Reach  identification  number  REACH 

Number  of  valley  sections  in  reach  NOVS 

Reach  length  (ft/ra)  XL 

Slope  (average  for  fLow  segments)  SLOPE 

Multiple  routing  reaches  MR 

(not  invoked  do  not  enter) 

(invoked  enter  one) 
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Inflow  rating  curve  identification)  INRC 

Outflow  rating  curve  identification  LRC 

(first  digit  is  storage  location  of  the 
rating  curve,  the  second  digit  is  the 
segment  number) 

N.B.  If  multiple  routing  reaches  not  invoked 
do  not  enter  values  for  INRC  and  LRC 


ROUTE 


Storage  location  number  of  outflow  hydrograph  ID 

Hydrograph  identification  number  of  outflow  NHD 

hydrograph 

Storage  location  number  of  inflow  hydrograph  IDH 

Time  increment  (hrs)  DT(ID) 

Multiple  routing  reaches  MR 

(not  invoked,  do  not  enter) 

(invoked,  enter  one) 


ROUTE  RESERVOIR 


Storage  location  number  of  outflow  hydrograph  ID 

HyJrograph  identification  number  of  outflow  NHD 

hydrograph 

Storage  location  number  of  inflow  hydrograph  IDH 

Reservoir  outflow  storage  relation  (max  20  DT(ID) 

points ) 


SEDIMENT  YIELD 

Storage  location  of  number  of  hydrograph  ID 

Soil,  crop,  conservation  and  gradient  factors  SOIL,  CROP,  CP,  SL 
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MODEL  CONTROL  PROCEDURES 


START 


Start  time  (hours) 

Data  input 

imperial  enter  zero 
metric  enter  one 
Data  output 

imperial  enter  zero 
metric  enter  one 


STORE  HYD 


Storage  location  number  for  hydrograph 
Hydrograph  identification  number 
Time  increment  for  discharge  data  (hrs) 
Watershed  area  (sq. mi/km  )  3-1 

Baseflcw  (added  to  discharge)  (cfs^m_^  ) 
Discharge  (300  points  max.)  (cfs/m  s  ) 


RECALL  HYD 


Storage  location  number  for  hydrograph 
Hydrograph  identification  number 
Time  increment  for  discharge  data  (hours) 
Watershed  area  (sq.mi^/k^i  ) 

Peak  discharge  (cfs^m  s  ) 

Runoff  volume  (cf/m  ) 

Number  of  points^i^h,  urograph) 

Discharge  (cfs/m  s  ) 


STORAGE  RATING  CURVE 


Storage  location  number  for  rating  curve 
Valley  section  number 
Rating  curve  points 
elevation  (ft^m)^ 
end  area  (ft  /m^ )  ^ 
flow  rate  (cfs/m  s  ) 


STORAGE  TRAVEL  TIKE 


Storage  location  number  for  travel  time  table 
Reach  ident i f icat ion  number 


TIME 

KCODE 


ICODE 


ID 

NHD 

DT(ID) 

DA(ID) 

BSF 

OCFS(300, ID) 


ID 

NHD 

DT(ID) 

DA(ID) 

PEAK (ID) 
ROIN(ID) 
IEND(ID) 
OCFS(300,ID) 


ID 

VS 

DEEP (20 , ID ) 
A( 20 , ID ) 
Q(20,ID) 


ID 

NHD 


50 


Table  2.1  (cont.) 


Length  of  reach  (ft/m)  XL 

Slope  either  channel  or  flood  plain  or  SLOPE 

weighted  average  of  the  two 

Depth  (ft/m)  _  DP(ID) 

Discharge  (cfs/m  s  )  SCFS(20) 

Storage  coefficient  C(20) 


ADD  HYP 

Storage  location  number  for  resultant 
hydrograph 

Hydrograph  identification  number  of 
resultant 

Storage  location  of  two  hydrographs 
to  be  added 


PRINT  HYP 

Storage  location  number  of  hydrographs  ID 

SpeciSTORAGEf ication  of  type  of  ourput  NPK 

3  -1 

0  peak  and  volume  only  (c fs/m^s_^) 

1  discharge  hydrograph  (cfs/m  s  ) 

2  stage  hydrograph  (ft/m) 

Rating  curve  identification  for  conversion  of  IDR 

hydrograph 


ID 

NHD 

ID  1 ,  ID2 


PLOT  HYD 


Storage  location  number  of  the  1  or  2 
hydrographs  to  be  plotted 


ID1,  ID2 


PUNCH  HYD 


Storage  location  number  of  hydrograph 


ID 


ERROR  ANALYSIS 


Storage  location  numbers  of  2 
hydrographs  to  be  compared 


ID1 ,  ID2 


FINISH 


No  information  required 
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2.3  Data  Set  ’data2' 


This  data  set  contains  all  the  information  required  by  the 
infiltration  algorithm.  In  contrast  to  the  'datal*  data  set, 
'data2'  contains  variables  separated  by  a  space,  no  text  or  comment 
lines  may  appear.  Data  may  be  entered  in  columns  1  to  80  and  must 
appear  in  the  correct  order.  Table  2.2  summarizes  the  variables 
required  by  'data2'  and  the  order  in  which  they  must  appear.  Line 
numbers  are  not  required  in  the  data  file  but  are  provided  here  for 
convenience.  A  set  of  data  for  each  soil  column  to  be  simulated 
must  be  entered.  The  runoff  generated  from  each  column  is  then 
weighted  depending  on  the  percentage  contribution  of  that  column  in 
a  particular  subcatchment.  Computations  for  each  subcatchment  are 
carried  out  individually  in  line  with  upstream  to  downstream 
progression  utilised  by  all  the  MILHY3  models. 


Each  variable  is  now  defined  in  turn.  An  example  'data2' 
dataset  and  corresponding  results  file  is  documented  in  section  2.4, 


Line  1 


TIME  simulation  start  time  ) 

) 

) 

ALR  storm  start  time  ) 

)  hours  and  minutes 

)  where  hours  are  24  hour 

AMR  storm  stop  time  )  clock  and  minutes  are 

)  decimals  of  hours, 

)  e.g.  20.45  becomes 

SIMDUR  simulation  duration  )  20.75 

) 

) 
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Chapter 
Line  2 
IOUT 

Line  3 
AF 

WT 

Line  4 
NSCOL 

Line  5 
1PAREA 

Line  6 
NL 
NL1 
NL2 

Line  7 
TCOM  (I) 


Line  8 
EMAX 
ADETCAP 
SDETCAP 


2 


printout  control,  1  =  full  printout,  0  =  restricted 
printout 


simulation  iteration  periods  (secs),  for  accuracy  needs 
to  be  small,  as  a  guide  try  60  secs  iterations 

write  out  interval  (hours) 


number  of  soil  columns  in  particular  subcatchment;  if 
more  than  1,  repeat  lines  5-22  for  each  additional  column 


percentage  area  of  subcatchment,  represented  by  soil 
column  I 

data  from  lines  6-22  is  for  soil  column  1 
number  of  cells 

number  of  cells  in  layer  (horizon)  1 
number  of  cells  in  layer  (horizon)  2 


,  I  =  1  ,  NL 


thickness  of  cells  (ra),  entered  for  NL  cells 


maximum  midday  evaporati vity  (ms  ^) 

mean  surface  detention  capacity  (ra),  double  precision 

standard  deviation  detention  capacity,  double  precision  - 
set  to  zero  if  stochastic  version  not  used 
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Chapter  2 
Line  9 
ASRI 

SSRI 

ASR2 

SSR2 

ASR3 

SSR3 

Line  10 
ASATCON 1 

SSATCON 1 

ASATC0N2 

SSATC0N2 

ASATC0N3 

SSATC0N3 

Line  11 
ATHETA  (I 


Line  12 
STHETA 


3  -3 

mean  saturated  soil  water  content  (mm  )  for  layer 
(horizon)  1,  double  precision 

standard  deviation  of  saturated  soil  water  content  for 
layer  (horizon)  1,  double  precision,  set  to  zero  if 
stochastic  model  not  used 

as  above  for  layer  2 

as  above  for  layer  2 

as  above  for  layer  3 

as  above  for  layer  3 


mean  saturated  conductivity  (ms  ^ )  for  layer  1,  double 
precision 

standard  deviation  saturated  conductivity  for  layer  1, 
double  precision,  set  to  zero  if  stochastic  model  not 
used 

as  above  for  layer  2 
as  above  for  layer  2 
as  above  for  layer  3 
as  above  for  layer  3 


,  I  =  1 ,  NL 


mean  initial  soil  water  content 
cells 


,  3  -3 . 
(mm  ) 


for  each  of  NL 


standard  deviation  soil  water  content  for  soil  column, 
double  precision,  set  to  zero  if  stochastic  model 
not  used 
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Line  13 

NQ  number  of  observations  in  suction  moisture  curve 


Line  14  line  14-16  -  layer  1 

17-18  -  layer  2 

20-22  -  layer  3 

AX  CO  ,  I  =  l_,__NQ 

3  -3 

mean  soil  moisture  values  (mm  )  for  layer  1,  NQ 
observations,  at  Y  suction  values,  the  last  value  needs 
to  be  the  saturated  soil  water  content,  i.e.  ASR1,  double 
precision 


Line  15 

y l  (I ) , I  =  1,  NQ 


suction  values  (m)  for  layer  1,  NQ  observations 
corresponding  to  AX  moisture  values.  As  the  last  AX 
observation  is  at  saturation,  the  last  suction 
observation  must  be  close  to  zero 


Line  16 

SCLfRV  1  standard  deviation  of  soil  water  content  in  suction 

moisture  curve  for  layer  1,  double  precision.  Set  to 
zero  if  stochastic  model  not  used 

Line  17  AX2 ( I ) , 1  =  1,  NQ 


Line 

18 

y2(i )  ,  I  -  1 ,  NQ 

Line 

19 

SCURV2 

Line 

20 

AX3 ( I ) , I  =  1,  NQ 

Line 

21 

y3 ( I ) ,  I  =  1,  NQ 

Line 

22 

SCURV3 
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For  each  column,  lines  5-22  are  repeated,  for  each 
subcatchmeni  lines  1-22  (+(5-22)  x  soil  columns)  are  added.  Each 
soil  column  or  subcatchment  follows  directly  from  previous  data 
entry;  no  extra  spaces  or  lines  are  required. 

If  observed  data  for  the  soil  hydrologic  characteristics  is 
not  available,  (e.g.  AX,  ASR),  these  may  be  generated  from  the 
Brakensiek  and  Rawl  charts  described  in  section  1.2.3. 


2.4  Example  Data  Sets  and  Results  File 

The  example  shown  here  aims  to  generate  a  runoff  hydrograph 
from  the  River  Fulda  shown  in  Figure  2.2.  Observed  inflows  will  be 
used,  to  input  flow  at  Unter-Schwarz  on  the  River  Fulda,  and  to 
simulate  flows  from  the  tributary,  the  River  Haune.  MILHY3  will  be 
used  to  simulate  out-of-bank  flows  from  these  stations  to  the 
outflow  at  Rotenburg. 
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Table  2.2 

Data  requirements  for  ’data2* 


Line 

no. 

1  TIME  ALR  AMR  SIMDUR 

2  IOUT 

3  AF  WT 

4  NS COL 

5  IP AREA 

6  NL  NLI  NL2 

7  TCOM(I),I=i,NL 

8  EMAX  ADETCAP  SDETCAP 

9  ASR1  SSRl  ASR2  SSR2  ASR3  SSR3 

10  ASATCON  SSATCON  ASATCON1  SSATCON2  ASATC0N3  SSATCON3 

11  ATHETA(I) ,1=1 ,NL 

12  STHETA 

13  NQ 

14  AX(I)mI=l,NQ 

15  Y(I),I=1,NQ 

16  SCURV1 

17  AX2 (I ) , 1=1 , NQ 

18  Y2 (I ) , 1=1 , NQ 

19  SCURV2 

20  AX3(I) ,1=1 ,NQ 

21  Y3 (I ) , 1=1 ,NQ 

22  SCURV3 


If  there  is  more  than  1  soil  column,  then  repeat 
from  line  5,  until  all  information  is  provided. 
No  blank  line  is  required  between  soil  columns. 
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*  EXAMPLE  APPLICATION  OF  MILHY3 

START  00.00  0  0 

*  OBSERVED  INFLOW  AT  UNTER-SCHWARZ 

STORE  HYD  ID-1  NHD-404  DT-2.0  DA-181  SQ  MI  BSF-0 

FLOW  RATES (CFS)-  0000000000000 
9  58  144  268  422  620  847  1073  1252  1349 
1419  1467  1494  1503  1497  1475  1442  1401 
1355  1305  1241  1166  1106  1053  120 


*  ROUTE  HYDROGRAPH  FROM  UNTER-SCHWARZ  THROUGH  REACH  3  TO  BAD  HERSFELD 

*  COMPUTE  RATING  CURVE  FOR  UNTER-SCHWARZ 

COMPUTE  RATING  CURVE  ID-1  IT-2  MR-0  VS  NO-4  NO  SEGS-3 
MIN  ELEV-708.7  MAX  ELEV-738.2 
CH  SLP-0.0007  FLDPL  SLP-0.0005 
N-0.05  DIST-1312.4 
N— .03  DIST-1371 . 7 

N-0.05  DIST-1420 . 9 
DIST  ELEV 
0.0  738.2 

0.3  718.5 

1312.4  715.2 

1312.7  708.7 

1358.3  708.7 

1371.4  708.7 

1371.7  715.2 

1372.0  715.2 

1420.6  718.5 

1420.9  738.2 

*  COMPUTE  RATING  CURVE  FOR  BAD  HERSFELD 

COMPUTE  RATING  CURVE  ID-2  IT-2  MR-0  VS-5  NO  SEGS-3 
MIN  ELEV-637 . 6  MAX  ELEV-657.6 
CH  SLP-0.006  FLDPLN  SLP-0.0075 
N-0.05  DIST-393 . 2 
N— .03  DIST-492 . 1 
N-0.05  DIST-623 . 7 
DIST  ELEV 
0.0  657.6 

0.4  651.3 

390.4  651.3 

390.8  651.6 

393.0  651.6 

393.2  651.3 

393.7  650.9 

406.8  644.4 

410.1  642.7 

413.4  641.1 

416.7  639.8 

420.0  639.8 

423.2  639.8 

426. ?  639.8 

429.8  639.4 

433.1  639.1 

436.4  639.1 

439.6  638.8 

442.9  636.2 

446.2  638.5 

449.5  638.1 

452.8  638.1 
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456.0  637.8 

459.3  537.6 

462.6  638.1 

465.9  639.4 

469.2  641.7 

472.4  643.4 

475.7  645.0 

479.0  646.3 

482.3  648.0 

485.6  649.0 

488.9  650.0 

492.1  650.9 

495.4  651.9 

508.5  652.6 

524.9  652.2 

574.2  652.2 

590.6  652.6 

607.0  652.6 

623.4  625.2 

623.7  655.5 

COMPUTE  TRAVEL  TIME  ID-1  REACH  NO-3  NO  VS-2 
L-75443  FT  SLP-0.0006 
MR-0 

ROUTE  ID-1  HYD  NO-405  INFLOW  ID-1 

DT-0.25HRS  MR-0 


*  COMPUTE  RUNOFF  HYDROGRAPH  FROM  SUBCATCHMENT  405 
COMPUTE  HYD  ID-2  HYD  NO-405  DT-0.5HRS  DA-152.2  SQ  MI 

CN-90  HT-72.4  FT  L-20 . 4  MI 

CUMULATIVE  RAINFALL! INCHES)  -  0.0  0.0  0.0  0.009  0.02 
0.03  0.041  0.051  0.062  0.072  0.082  0.093  0.103 
0.114  0.124  0.134  0.145  0.155  0.166  0.176  0.187 

0.197  0.207  0.218  0.228  0.239  0.249  0.259  0.270 

0.280  0.291  0.301  0.312  0.322  0.332  0.343  0.353 

0.364  0.374  0.384  0.395  0.405  0.416  0.426  0.437 

0.447  0.457  0.468  0.478  0.489  0.499  2.0 

PRINT  HYD  ID-2  NPK-0  IDR-0  IN-0 


*  COMPUTE  OUTFLOW  HYD  FROM  SUBCATCHMENT  405  FROM  FULDA  RIVER  BAD  HERSFELD 
ADD  HYD  ID-1  HYD  NO-405  ID-1  ID-2 

PRINT  HYD  ID-1 
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N-0.05 

DIST-393 . 2 

N— .03 

DIST-*92 . 1 

N-0.05 

DIST-623 . 7 

DIST 

ELEV 

0.0 

657.6 

0.* 

651.3 

390.* 

651.3 

390.8 

651.6 

393.0 

651.6 

393.2 

651.3 

393.7 

650.9 

*06.8 

6**.* 

*10.1 

6*2.7 

*13.* 

6*1.1 

*16.7 

639.8 

*20.0 

639.8 

*23.2 

639.8 

*26.5 

639.8 

*29.8 

639.* 

*33.1 

639.1 

*36.* 

639.1 

*39.6 

638.8 

**2.9 

636.2 

**6.2 

638.5 

**9.5 

638.1 

*52.8 

638.1 

*56.0 

637.8 

*59.3 

637.6 

*62.6 

638.1 

*65.9 

639.* 

*69.2 

6*1.7 

*72.* 

6*3.* 

*75.7 

6*5.0 

*79.0 

6*6.3 

*82.3 

6*8.0 

*85.6 

6*9.0 

*88.9 

650.0 

*92.1 

650.9 

*95.* 

651.9 

508.5 

652.6 

52*.  9 

652.2 

57*.  2 

652.2 

590.6 

652.6 

607.0 

652.6 

623.* 

625.2 

623.7 

655.5 

*  COMPUTE  RATING  CURVE  FOR  ROTENBURG 

COMPUTE  RATING  CURVE  ID-2  IT-2  MR-1  VS-8  NO  SEGS-3  MIN  ELEV-  587.3 
MAX  ELEV— 618 . 1  CH  SLP-  0.006  FLDPN  SLP-0.0075 
N-0.05  DIST-1056 .  A  N— 0.03  DIST-1191.0 

N-0.05  DIST-1253.6 

DIST  ELEV 
0.0  616.8 
0.3  608.5 

82,0  602.6 
180.5  603  2 

278.9  604. A 

*75.7  60*.* 
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574.1 

603.0 

771.0 

603.6 

918.6 

603.5 

1056.4 

604.8 

1070.0 

601.0 

1099.1 

599.6 

1112.2 

597.4 

1118.8 

595.4 

1125.3 

591.2 

1131.9 

591.0 

1138.5 

590.4 

1145.0 

589.6 

1151.6 

588.9 

1158.1 

588.4 

1164.7 

587.6 

1171.3 

587.3 

1177.8 

591.9 

1184.4 

595.1 

1191.0 

599.4 

1197.5 

6U2.0 

1204.1 

603.7 

1215.6 

611.5 

1230.3 

610.7 

1233.6 

611.2 

1253.3 

611.6 

1253.6 

618.1 

*  LEFT  FLOODPLAIN 

COMPUTE  TRAVEL  TIME  ID-3  REACH  NO- 6  NO  VS-2 
L-55808FT  SLP-0.0006 
MR-1  INRC-1I  LRC-21 

ROUTE  ID-3  NHD— 409  IDH-1 

DT-0.25  MR-1 


*  CHANNEL 

COMPUTE  TRAVEL  TIME  ID-4  REACH  NO- 6  NO  VS-2 
L-72550FT  SLP-0.0007 
MR-1  INRC-12  LRC-22 

ROUTE  ID-4  NHD-409  IDH-1 

DT-0.25  MR-1 


*  RIGHT  FLOODPLAIN 
COMPUTE  TRAVEL  TIME 


ROUTE 

ADD  HYD 
ADD  HYD 


ID-5  REACH  NO-6  NO  VS-2 
L-55808  FT  SLP-0.0006 
MR-1  INRC-13  LRC-23 
ID-5  NHD-409  IDH-1 
DT-0 . 25HRS  MR-1 
ID-1  NHD-409  IDI-3  IDII-4 
ID-1  NHD-409  IDI-1  IDII-5 


*  COMPUTE  RUNOFF  HYDROGRAPH  FOR  SUBCATCHMENT  409 
COMPUTE  HYD  ID-2  HYD  NO409  DT-0 . 5HRS  DA-155.5 

CN-0  HT-48.9FT  L-15.1  MI 

CUMULATIVE  RAINFALL (INCHES)  -  0.0  0.0  0.0  0.009  0.02 
0.03  0.041  0.051  0.062  0.072  0.082  0.093  0.103 
0.114  0.124  0.134  0.145  0.155  0.166  0.176  0.187 

0.197  0.207  0.218  0.228  0.239  0.249  0.259  0.270 

0.280  0.291  0.301  0.312  0.322  0.332  0.343  0.353 

0.364  0.374  0.304  0.395  0.405  0.416  0.426  0.437 

0.447  0.457  0.468  0.478  0.489  0.499  2.0 
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*  COMPUTE  OUTFLOW  HYDROGRAPH  FROM  SUBCATCHMENT  409,  ROTENBURG 
ADD  HYD  ID-1  HYD  NO409  ID-1  ID-2 

PRINT  HYD  ID-1  NPK-2  IDR-2  IN-0 

FINISH 
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0.3  0.3  0.3  0.3  0.3  0.3  0.3  0.3  0.3  0.3 
0.0 
10 

0.057  0.066  0.076  0.093  0.12  0.15  0.19  0.23  0.28  0.37 
-150.  -100.  -70.  -AO.  -20.  -10.  -6.  -3.3  -2.  -.2 
0.0 

0.057  0.066  0.076  0.093  o . 12  0.15  0.19  0.23  0.28  0.37 
-150.  -100.  -70.  -AO.  -20.  -10.  -6.  -3.3  -2.  -.2 
0.0 

0.057  0.066  0.076  0.093  0.12  0.15  0.19  0.23  0.28  0.37 
-150.  -100.  -70.  -AO.  -20.  -10.  -6.  -3.3  -2.  -.2 
0.0 


*  EXAMPLE  APPLICATION  OF  MILHY3 


START  00.00  0  0 

*  OBSERVED  INFLOW  AT  UNTER-SCHWARZ 

STORE  HYD  ID-1  NHD-404  DT-2.0  DA-181  SQ  MI  BSF-0 

FLOW  RATES(CFS)-  0000000000000 
9  58  144  268  422  620  847  1073  1252  1349 
1419  1467  1494  1503  1497  1475  1442  1401 
1355  1305  1241  1166  1106  1053  120 


*  ROUTE  HYDROGRAPH  FROM  UNTER-SCHWARZ  THROUGH  REACH  3  TO  BAD  HERSFELD 

*  COMPUTE  RATING  CURVE  FOR  UNTER-SCHWARZ 

COMPUTE  RATING  CURVE  ID-1  IT-2  MR-0  VS  NO-4  NO  SEGS-3 
MIN  ELEV-708.7  MAX  ELEV-738.2 
CH  SLP-0.0007  FLDPL  SLP-0.0005 


N-0.05 

DIST-1312 . ' 

N— .03 

DIST-1371 

N-0.05 

DIST-1420 . 

DIST 

ELEV 

0.0 

738.2 

0.3 

718.5 

1312.4 

715.2 

1312.7 

708.7 

1358.3 

708.7 

1371.4 

708.7 

1371.7 

715.2 

1372.0 

715.2 

1420.6 

718.5 

1420.9 

738.2 

MOMENTUM  EXCHANGE  METHOD  : 

RATING  CURVE  VALLEY 

SECTION 

WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

708.70 

0.00 

0.00 

710.25 

91.25 

155.05 

711.81 

182.72 

477.37 

713.36 

274.42 

911.35 

714.91 

366.33 

1431.72 

716.46 

787.68 

2229.63 

718.02 

2185.81 

4170.07 

719.57 

4342.65 

8410.09 

721.12 

6547.91 

14670.48 

722.67 

8753.25 

22488.20 

724.23 

10958.65 

31705.05 

725.78 

13164 . 14 

42210.93 

727.33 

15369.69 

53922.54 

728.88 

17575.32 

66773.54 

730.44 

19781.03 

8C709. 19 

731.99 

21986.80 

95683.22 

7^3.54  24192.65  111655.61 
735.09  26398.57  128591.32 
736.65  28604.57  146459.20 
738.20  30810.64  165231.38 


4.0 


*  COMPUTE  RATING  CURVE  FOR  BAD  HERSFELD 
COMPUTE  RATING  CURVE  ID-2  IT-2  MR-0  VL-5  NO  SEGS-3 
MIN  ELEV-637.6  MAX  ELEV-657.6 
CH  SLP-0.006  FLDPLN  SlD-0.0075 
N-O.OS  DIST-393 . 2 


N-  .03  DIST-492. 1 
N-0.05  DIST-623. 7 


DIST 

ELEV 

0. 

0 

657  . 

6 

0. 

4 

651  . 

3 

390. 

4 

651 . 

3 

390. 

8 

651. 

6 

393. 

0 

651. 

6 

393. 

2 

651. 

3 

393. 

7 

650. 

9 

406. 

8 

644  . 

4 

410 

1 

642. 

7 

413 

4 

64  1 . 

1 

416 

7 

639. 

8 

420 

0 

639. 

8 

423  . 

2 

639 

8 

426. 

5 

639. 

8 

429. 

8 

639. 

4 

433. 

1 

639. 

1 

436 

4 

639. 

1 

439 

6 

638 

8 

442 

9 

636. 

2 

446. 

2 

638. 

5 

449, 

5 

638 

1 

4  52. 

8 

638 

1 

456. 

.0 

637 

8 

4  59. 

3 

637. 

6 

462 

6 

638. 

1 

4b5 . 

9 

639. 

4 

CT> 

CD 

2 

641. 

7 

472 

4 

643. 

4 

475 . 

7 

645. 

0 

479. 

0 

646. 

3 

482. 

3 

648. 

0 

485 

6 

649. 

0 

488. 

9 

650. 

0 

492 

1 

650. 

9 

495 

4 

651. 

9 

508. 

5 

652. 

6 

524  . 

9 

652. 

2 

574  . 

2 

652. 

2 

590  . 

6 

652. 

6 

607. 

0 

652. 

6 

623. 

4 

625. 

2 

623 

7 

655. 

5 

MOMENTUM  EXCHANGE  METHOD  2 
RATING  CURVE  VALLEY  SECTION  5.0 


WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

so 

FT 

CFS 

637 

.60 

0. 

00 

0. 

00 

638 

65 

74  . 

59 

273. 

51 

639 

,71 

116. 

87 

498. 

71 

640 

76 

179. 

74 

934  . 

63 

641 

81 

248. 

52 

1601 . 

59 

642 

86 

322. 

18 

2442. 

78 

643 

.92 

400  . 

82 

3457. 

09 

644 

.97 

484  . 

55 

4641 . 

50 
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646.02  573.72  5985.95 

647.07  668.42  7531.72 

648.13  768.22  9258.80 

649.18  874.00  11109.36 

650.23  986.35  13163.23 

651.28  1105.39  15542.64 

652.34  1645.10  19138.52 

653.39  2293.44  25218.43 

654.44  2949.69  32899.45 

655.49  3606.02  41818.87 

656.55  4262.43  51889.83 

657.60  4918.91  63025.47 

COMPUTE  TRAVEL  TIME  ID-1  REACH  NO- 3  NO  VS-2 
L-75443  FT  SLP-0.0006 
MR-0 

0  TRAVEL  TIME  TABLE 

REACH  3 . 0 


WATER 

FLOW 

TRAVEL 

DEPTH 

RATE 

TIME 

FEET 

CFS 

HRS 

1.59 

274. 

7.64 

2.64 

499. 

6.39 

3.94 

935. 

5.1‘ 

5.38 

1602. 

4.61 

6.60 

2443. 

5.42 

7.53 

3457. 

6.28 

8.43 

4642. 

6.57 

9.20 

5986. 

6.45 

10.01 

7532. 

6.35 

10,80 

9259. 

6.12 

11.56 

11109. 

5.82 

12.34 

13163. 

5.57 

13.14 

15543. 

5.33 

14.02 

19139. 

5.18 

15.11 

25218. 

4.86 

16.27 

32699. 

4.51 

17,46 

41819. 

4 . 18 

18.65 

51890. 

3.89 

19.87 

63025. 

3.63 

ROUTE  ID-1  HYD  NO405  INFLOW  ID-1 

DT-0.25HRS  MR-0 

CHECK-  VOLUME  OF  OUTFLOW  HYDROGRAPH  1  IS  100. 0001  OF  INFLOW  HYDROGRAPH  1 


*  COMPUTE  RUNOFF  HYDROGRAPH  FROM  SUBCATCHMENT  405 
COMPUTE  HYD  ID-2  HYD  NO405  DT-0 . 5HRS  DA-152.2  SQ  MI 

CN-90  HT-72.4  FT  L-20 . 4  MI 

CUMULATIVE  RAINFALL! INCHES)  -  0.0  0.0  0.0  0.009  0.02 
0.03  0.041  0.051  0.062  0.072  0.082  0.093  0.103 
0.114  0.124  0.134  0.145  0.155  0.166  0.176  0.187 

0.197  0.207  0.218  0.228  0.239  0.249  0.259  0.270 

0.260  0.291  0.301  0.312  0.322  0.332  0.343  0.353 

0.364  0.374  0.384  0.395  0.405  0.416  0.426  0.437 

0.447  0.457  0.468  0.478  0.489  0.499  2.0 

Shape  constant,  N  -  2.470 

Unit  peai  -  1453.5  ems 


PRINT  HYD 


ID-2  NFK-0  IDR-0  IN-0 
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PRINT  HYD  ID-2  NPK-0 

0  HYDROGRAPH  VOLUME-  329554912.  CF 

PEAK  DISCHARGE  RATE-  1588. CFS 


*  COMPUTE  OUTFLOW  HYD  FROM  SUBCATCHMENT  405  FROM  FULDA  RIVER  BAD  HERSFELD 
ADD  HYD  ID-1  HYD  NO405  ID-1  ID-2 

PRINT  HYD  ID-1 

PRINT  HYD  ID-1  NPK-0 

0  HYDROGRAPH  VOLUME-  238953904.  CF 

PEAK  DISCHARGE  RATE-  1591. CFS 


*  OBSERVED  INFLOW  FOR  RIVER  HANE  AT  BAD  HERSFELD 

STORE  HYD  ID-2  NHD-408  DT-2.0  DA-27  SO  MI  BSF-0 

FLOW  RATES(CFS)-0  000000000000 
42  1593  4247  2777  1993  1481  1176  1010 
902  817  743  674  609  549  492  440  394  354 
315  288  259  234  212  192 


*  ADD  HYGROGRAPHS  FROM  FULDA  AND  HAUNE  RIVERS  AT  BAD  HERSFELD 
ADD  HYD  ID-1  HYD  NO-1  INFLOW  ID-1  ID-2 


*  ROUTE  OUTFLOW  HYDROGRAPH  AT  BAD  HERSFELD  THROUGH  REACH  6 

*  COMPUTE  RATING  CURVE  FROM  BAD  HERSFELD 

COMPUTE  RATING  CURVE  ID-1  IT-2  MR-1  VS-5  NO  SEGS-3 
MIN  ELEV-637 . 6  MAX  ELEV-657.6 
CH  SLP-0.006  FLDPLN  SLP-0.0075 
N-0.05  DIST-393 . 2 


N— 

.03 

DIST- 

N-0 

.05 

DIST-I 

DIST 

ELEV 

o 

o 

657. 

6 

0 

4 

651. 

3 

390 

4 

651. 

3 

390. 

8 

651. 

6 

393. 

0 

651, 

6 

393. 

2 

651. 

3 

393. 

7 

650. 

9 

406. 

8 

644  . 

4 

410 

1 

642. 

7 

413 

4 

641. 

1 

416 

7 

639. 

8 

420 

0 

639. 

8 

423 

2 

639 

8 

426. 

5 

639. 

8 

429. 

8 

639. 

6 

433 

1 

639. 

1 

436 

4 

639 

1 

439 

6 

638 

8 

442 

9 

636 

2 

446. 

2 

638. 

5 

449. 

5 

638. 

1 
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4  52.6 

638.1 

456.0 

637.8 

459.3 

637.6 

462.6 

638.1 

465.9 

639. 4 

469.2 

641.7 

472.4 

643.4 

475.7 

645.0 

479.0 

646.3 

482.3 

648.0 

485.6 

649.0 

488.9 

650.0 

492.1 

650.9 

495.4 

651.9 

508.5 

652.6 

524.9 

652.2 

574.2 

652.2 

590.6 

652.6 

607.0 

652.6 

623.4 

625.2 

623.7 

655.5 

MOMENTUM  EXCHANGE  METHOD  2 

RATING  CURVE  FOR  SEGMENT  11 


WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SO  FT 

CFS 

637.60 

0.0 

0.0 

638.65 

0.0 

0.0 

639.71 

0.0 

0.0 

640.76 

0.0 

0.0 

641.81 

0.0 

0.0 

642.86 

0.0 

0.0 

643,92 

0.0 

0.0 

644.97 

0.0 

0.0 

646.02 

0.0 

0.0 

647.07 

0.0 

0.0 

648.13 

0.0 

0.0 

649.18 

0.0 

0.0 

650.23 

0.0 

0.0 

651.28 

0.0 

0.0 

652.34 

406.4 

1066.0 

653.39 

820.0 

3427.8 

654 . 44 

1233.7 

6758.8 

655.49 

1647.4 

10925.3 

656.55 

2061.1 

15844.1 

657.60 

2475.0 

21456.1 

RATING  CURVE 

FOR  SEGMENT  12 

WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

637.60 

0.0 

0.0 

638.65 

19.5 

62.0 

639.71 

52.9 

239.7 

640 . 76 

106.1 

621.9 

641.81 

164.6 

1228.8 

642.86 

227.3 

2003.1 

643.92 

294.3 

2943  6 

644,97 

365.7 

4046.8 

& 
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646.02 

441.8 

5302.6 

647.07 

522.9 

6751.8 

648.13 

608.3 

8374.2 

649.18 

699.1 

10111.7 

650.23 

795.7 

12043.9 

651.28 

898.2 

14309.2 

652.34 

1002.3 

17176.2 

653.39 

1106.4 

20251.5 

654.44 

1210.5 

23526.1 

655.49 

1314.6 

26994.1 

656.55 

1418.7 

30650.3 

657.60 

1522.8 

34489.9 

RATING  CURVE 

FOR  SEGMENT  13 

WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

637.60 

0.0 

0.0 

638.65 

55.1 

211.5 

639.71 

64.0 

259.1 

640.76 

73.6 

312.7 

641.81 

83.9 

372.8 

642.86 

CO 

& 

CO 

439.7 

643.92 

106.6 

513.6 

644.97 

118.9 

594.9 

646.02 

131.9 

683.7 

647.07 

145.6 

780.4 

648.13 

159.9 

B85 . 1 

649.18 

174.9 

998.3 

650.23 

190.6 

1120.1 

651,28 

207.2 

1234.4 

652.34 

236.4 

897.5 

653.39 

367.1 

1540.7 

654.44 

505.6 

2616.6 

655.49 

644 . 1 

3902.1 

656.55 

782.6 

5398.8 

657.60 

921.1 

7083.8 

l  DISCHARGE 

IN  SEGMENT  11 

ELEV 

PERCENT 

637.60 

0.000 

638.65 

0.000 

639.71 

0.000 

640.76 

0.000 

641.81 

0.000 

642.86 

0.000 

643.92 

0.000 

644.97 

0.000 

646.02 

0.000 

647.07 

0.000 

648.13 

0.000 

649.18 

0.000 

650.23 

0.000 

651.28 

0.000 

652.34 

0.056 

653.39 

0  136 

654.44 

0.205 

655.49 

0.261 

656.55 

0.305 

657,60 

0.340 
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I  DISCHARGE  IN  SEGMENT  12 


ELEV 

PERCENT 

637.60 

0.000 

638.65 

0.227 

639.71 

0.481 

640.76 

0.665 

641.81 

0.767 

642.86 

0.820 

643.92 

0.851 

644.97 

0.872 

646.02 

0.886 

647.07 

0.896 

648.13 

0.904 

649.18 

0.910 

650.23 

0.915 

651.28 

0.921 

652.34 

0.897 

653.39 

0.803 

654.44 

0.715 

655.49 

0.645 

656.55 

0.591 

657.60 

0.547 

DISCHARGE 

IN  SEGMENT 

ELEV 

PERCENT 

637.60 

0.000 

638.65 

0.773 

639.71 

0.519 

640.76 

0.335 

641.81 

0.233 

642.86 

0.180 

643.92 

0.149 

644.97 

0.128 

646.02 

0.114 

647.07 

0.104 

648.13 

0.096 

649.18 

0.090 

650.23 

0.085 

651.28 

0.079 

652.34 

0.047 

653.39 

0.061 

654.44 

0.080 

655.49 

0.093 

656.55 

0.104 

657.60 

0.112 

*  COMPUTE  RATING  CURVE  FOR  ROTENBURG 

COMPUTE  RATING  CURVE  ID-2  IT-2  MR-1  VS-8  NO  SEGS-3  MIN  ELEV-  587.3 
MAX  ELEV-618.1  CH  SLP-  0.006  FLDPN  SLP-0.0075 
N-0.05  DIST-1056 . 4  N— 0.03  DIST-1191.0 

N-0.05  DIST-1253.6 

DIST  ELEV 
0.0  616.8 
0.3  608.5 

82.0  602.6 
180.5  603.2 

278.9  60*. 4 

475.7  604  4 

574.1  603.0 

771  0  603.6 
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918.6 

603.5 

1056.4 

604.8 

1070.0 

601.0 

1099.1 

599.6 

1112.2 

597.4 

1118.8 

595.4 

1125.3 

591.2 

1131.9 

591.0 

1138.5 

590.4 

1145.0 

589.6 

1151.6 

588.9 

1158.1 

588.4 

1164.7 

587.6 

1171.3 

587.3 

1177.8 

591.9 

1184.4 

595.1 

1191.0 

599.4 

1197.5 

602.0 

1204.1 

603.7 

1215.6 

611.5 

1230.3 

610.7 

1233.6 

611.2 

1253.3 

611.6 

1253.6 

618.1 

MOMENTUM  EXCHANGE  METHOD  2 
RATING  CURVE  FOR  SEGMENT  21 


WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

587.30 

0.0 

0.0 

588.92 

0.0 

0.0 

590.54 

0.0 

0.0 

592.16 

0.0 

0.0 

593.78 

0.0 

0.0 

595.41 

0.0 

0.0 

597.03 

0.0 

0.0 

598.65 

0.0 

0.0 

600.27 

0.0 

0.0 

601.89 

0.0 

0.0 

603.51 

121.8 

152.7 

605.13 

1409.2 

4525.1 

606.75 

3063.7 

16270.9 

608.37 

4754.6 

33365.7 

609.99 

6466.5 

55591.0 

611.62 

8178.7 

82144.9 

613.24 

9890.9 

112649.2 

614.86 

11603.2 

146844.9 

616.48 

13315.5 

184526.2 

618.10 

15028.0 

225706.0 

RATING  CURVE 

FOR  SEGMENT  22 

WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

587.30 

0.0 

0.0 

588.92 

19.4 

66.9 

590.54 

69.1 

380.6 

592,16 

148.8 

1088.7 

593.78 

242.0 

2271.4 
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595 . 41 

344.6 

3833.1 

597.03 

458.1 

5703.2 

598.65 

586.3 

7838.2 

600.27 

736.8 

9973.5 

601.89 

928.8 

13238.6 

T03.51 

1134.8 

17935.1 

605.13 

1350.0 

23407.8 

606.75 

1568. 2 

30047.3 

608.37 

1786.4 

37333.6 

609.99 

2004.6 

45239.2 

611.62 

2222 . 3 

53740.6 

613.24 

2440.9 

62817.6 

614.86 

2659.1 

72452.5 

616.48 

2877.3 

82629.6 

618.10 

3095.5 

93334.8 

RATING  CURVE 

FOR  SEGMENT  23 

WATER 

FLOW 

FLOW 

SURFACE 

AREA 

RATE 

ELEV 

SQ  FT 

CFS 

587.30 

0.0 

0.0 

588.92 

0.0 

0.0 

590. 54 

0.0 

0.0 

592.16 

0.0 

0.0 

593.78 

0.0 

0.0 

595.41 

0.0 

0.0 

597.03 

0.0 

0.0 

598.65 

0.0 

0.0 

600.27 

0.9 

0.9 

601.89 

7.7 

19.0 

603.51 

22.7 

78.1 

605.13 

45.4 

216.4 

606.75 

72.0 

422.7 

608.37 

102.4 

698.3 

609.99 

136.8 

1047.5 

611.62 

189.0 

970.1 

613.24 

290.1 

1949.6 

614.86 

391.2 

3160.6 

616.48 

492.5 

4569.2 

618.10 

593.9 

6150.5 

I  DISCHARGE 

IN  SEGMENT  21 

ELEV 

PERCENT 

587.30 

0.000 

588.92 

0.000 

590.54 

0.000 

592.16 

0.000 

593.78 

0.000 

595.41 

0.000 

597.03 

0.000 

598.65 

0.000 

600.27 

0.000 

601.89 

0.000 

603.51 

0.008 

605.13 

0.161 

606.75 

0.348 

608.37 

0.467 

609.99 

0.546 

611.62 

0.600 

613.24 

0.635 
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614 . 86 

0.660 

616.48 

0.679 

618.10 

0.694 

I  DISCHARGE 

IN  SEGMENT 

22 

ELEV 

PERCENT 

587.30 

0.000 

588.92 

1.000 

590.54 

1.000 

592.16 

1.000 

593.78 

1.000 

595.41 

1.000 

597.03 

1.000 

598.65 

1.000 

600.27 

1.000 

601.89 

0.999 

603.51 

0.987 

605.13 

0.832 

606.75 

0.643 

608.37 

0.523 

609.99 

0.444 

611.62 

0.393 

613.24 

0.354 

614.86 

0.326 

616.48 

0.304 

618.10 

0.287 

I  DISCHARGE 

IN  SEGMENT 

23 

ELEV 

PERCENT 

587.30 

0.000 

588.92 

0.000 

590.54 

0.000 

592.16 

0.000 

593.78 

0.000 

595.41 

0.000 

597.03 

0.000 

598.65 

0.000 

600.27 

0.000 

601.89 

0.001 

603.51 

0.004 

605.13 

0.008 

606.75 

0.009 

608.37 

0.010 

609.99 

0.010 

611.62 

0.007 

613.24 

0.011 

614.86 

0.014 

616.48 

0.017 

618. 10 

0.019 

*  LEFT  FLOODPLAIN 

COMPUTE  TRAVEL  TIME  ID-3  REACH  NO-6  NO  VS-2 

L-55808FT  SLP-0.0006 

MR-1  INRC-11  LRC-21 

0 

MULTIPLE  ROUTING  INVOKED 

0 

TRAVEL 

TIME  TABLE 

REACH  6 . 0 

WATER 

FLOW 

TRAVEL 

DEPTH 

RATE 

TIME 

FEET 

CFS 

HRS 
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2.23 

1066. 

19.44 

2.84 

3428. 

7.39 

3.49 

6759. 

4.52 

4.17 

10925. 

3.32 

4.87 

15844. 

2.67 

5.60 

21456. 

2.28 

ROUTE  ID-3  NHD-409  IDH-1 

DT-0.25  MR-1 

0  INFLOW  FOR  SEGMENT  1 

HOURS  PERCENT  CFS 

NO  FLOW  IN  SEGMENT 
*  CHANNEL 

COMPUTE  TRAVEL  TIME  ID-4  REACH  NO-6  NO  VS-2 
L-72550FT  SLP-0.0007 
MR-1  INRC-12  LRC-22 

0  MULTIPLE  ROUTING  INVOKED 

0  TRAVEL  TIME  TABLE 

REACH  6 . 0 


WATER 

FLOW 

TRAVEL 

DEPTH 

RATE 

TIME 

FEET 

CFS 

HRS 

1.98 

62. 

6.10 

3.01 

240. 

4.19 

4.18 

622. 

3.28 

5.33 

1229. 

2.66 

6.39 

2003. 

2.25 

7.45 

2944. 

1.99 

8.53 

4047. 

1.80 

9.60 

5303. 

1.66 

10.70 

6752. 

1.56 

11.84 

8374. 

1.48 

13.01 

10112. 

1.44 

14.01  ' 

12044. 

1.38 

15.02 

14309. 

1.32 

16.04 

17176. 

1.23 

17.04 

20251. 

1.16 

18.05 

23526. 

1.10 

19.00 

26994. 

1.04 

19.97 

30650. 

0.99 

20.92 

34490. 

0.94 

ID-4  NrfD-409  IDH-1 
DT-0.25  MR-1 

INFLOW  FOR  SECANT 


HOURS 

3.250 

3.500 

3.750 
4.000 

4.250 

4.500 

4 . 750 
5.000 


PERCENT 
0  000 
0.001 
0.004 
0.009 
0.019 
0.035 
0.059 
0.090 


.  /continued 


56.000 


0.790  1547.975 
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56.250 

0.739 

1538.2*0 

56.500 

0.788 

1528.520 

56.750 

0.788 

1518.59* 

57.000 

0.797 

1508.691 

57.250 

0.786 

1*98.587 

57.500 

0.786 

1*88.507 

57.750 

0.785 

1*78.2** 

58.000 

0.78* 

1*67 . 999 

CHECK-  VOLUME  OF  OUTFLOW  HYDROGRAPH  *  IS  78.4*91  OF  INFLOW  HYDROGRAPH  1 
*  RIGHT  FLOODPLAIN 

COMPUTE  TRAVEL  TIME  ID-5  REACH  NO-6  NO  VS-2 
L-55608  FT  SLP-0 . 0006 
MR-1  INRC-13  LRC-23 

0  MULTIPLE  ROUTING  INVOKED 

0  TRAVEL  TIME  TABLE 

REACH  6 . 0 


WATER 

FLOW 

TRAVEL 

DEPTH 

RATE 

TIME 

FEET 

CFS 

HRS 

8.0* 

19. 

18.61 

9.17 

78. 

6.8* 

10.73 

216. 

3.98 

12.67 

*23. 

3.06 

1* .  98 

698. 

2.62 

17.50 

10*7. 

2.35 

16.98 

970. 

2 .  *0 

21.21 

1950. 

2.82 

22.57 

3161. 

2.3* 

23.92 

*569. 

2.03 

25.26 

6151. 

1.81 

ROUTE  ID-5  NHD-409  IDH-1 

DT-0.25HRS  MR-1 

0  INFLOW  FOR  SEGMENT  3 


HOURS 

PERCENT 

CFS 

3.250 

0.000 

0.000 

3.500 

0.003 

0.004 

3.750 

0.013 

0,056 

*.000 

0  031 

0.3*6 

*.250 

0.06* 

1.456 

*.500 

0.119 

*.983 

*.750 

0.200 

14.117 

5.000 

0.308 

33.529 

route . /  continued 


55.750 

0.210 

*13.179 

56.000 

0.210 

*12.213 

56.250 

0.211 

*11.275 

56.500 

0.212 

*10.32* 

56.750 

0.212 

*09.336 

57.000 

0.213 

*08.328 

57.250 

0.21* 

*07.291 

57.500 

0.21* 

*06.233 

57.750 

0.215 

*05.241 

58.000 

0.216 

*0*035 

CHECK-  VOLUME  OF  OUTFLOW  HYDROGRAPH  5  IS 


20.1801  OF  INFLOW  HYDROGRAPH  1 
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ADD  HYD  ID-1  NHD-409  IDI-3  IDII-4 

ADD  HYD  ID-1  NHD-409  IDI-1  IDII-5 


*  COMPUTE  RUNOFF  HYDROGRAPH  FOR  SUBCATCHMENT  409 
COMPUTE  HYD  ID-2  HYD  NO-409  DT-0.5HRS  DA-155.5 

CN-0  HT-48.9FT  L-15.1  MI 

CUMULATIVE  RAINFALL (INCHES)  -  0.0  0.0  0.0  0.009  0.02 
0.03  0.041  0.051  0.062  0.072  0.082  0.093  0.103 
0.114  0.124  0.134  0.145  0.155  0.166  0.176  0.187 

0.197  0.207  0.218  0.228  0.239  0.249  0.259  0.270 

0.280  0.291  0.301  0.312  0.322  0.332  0.343  0.353 

0.364  0.374  0.384  0.395  0.405  0.416  0.426  0.437 

0.447  0.457  0.468  0.478  0.489  0.499  2.0 

2.411 


Shape  constant,  N 


Unit  peak 


1495.6  cms 


INCREMENTAL  RUNOFF-Parameter  variability  included 


SD  of  detcap  0.000 

SD  of  saturated  soil  contentO.OOO 

0.000 

0.000 

SD  of  suction  moisture  curveO.OOO 

0.000 

0.000 


layer  1 
layer  2 
layer  3 
layer  1 
layer  2 
layer  3 


SD  of  sat  conductivityO . 000  layer  1 
0.000  layer  2 
0.000  layer  3 

SD  of  initial  water  contentO.OOO 


OGENERATED  K-MOISTURE  CURVE 


Millington-Qui rk 
Layer  1 


Moisture 

Suction 

0.057  ■ 

■150.000 

0.073 

-78.421 

0.090 

-45.387 

0.  106 

-30.058 

0.  123 

-19.035 

0.139 

-13.544 

0  .  156 

-9.416 

0 .172 

-7.768 

0.189 

-6.121 

0.205 

-4 . 970 

0.222 

-3.858 

0.238 

-3.087 

0.255 

-2.658 

0.271 

-2.230 

0.288 

-1.847 

0.304 

-1.518 

0.321 

-1.188 

0.337 

-0.859 

0.354 

-0.529 

0.370 

-0.200 

0START  CONDITIONS 

Method 

Unsat  K 
0.000000000023 
0.000000000144 
C. 000000000553 
0.000000001621 
0.000000004190 
0.000000009711 
0.000000020796 
0.000000040196 
0.000000071057 
0.000000117721 
0.000000187038 
0.000000288406 
0 . C00000427721 
0.000000608825 
0.000000837452 
0.000001119370 
0.000001465874 
0.000001913219 
0.000002609657 
0.000005070084 


Layer  2 


Moisture 

Suction 

0.057  ■ 

-150.000 

0.073 

-78.421 

0.090 

-45.387 

0.106 

-30.058 

0.123 

-19.035 

0.139 

-13.544 

0.156 

-9.416 

0.172 

-7.768 

0  189 

-6.121 

0.205 

-4 . 970 

0.222 

-3.858 

0.238 

-3.087 

0.255 

-2.658 

0.271 

-2.230 

0.288 

-1.847 

0.304 

-1.518 

0.321 

-1.188 

0.337 

-0.859 

0.354 

-0.529 

0.370 

-0.200 

Unsat  K 
0.000000000023 
0.000000000144 
0.000000000553 
0.000000001621 
0.000000004190 
0.000000009711 
0.000000020796 
0.000000040196 
0.000000071057 
0.000000117721 
0.000000187038 
0.000000288406 
0.000000427721 
0.000000608825 
0.000000837452 
0  000001119370 
0.000001465874 
0.000001913219 
0.000002609657 
0.000005070084 


Layer  3 


Moi sture 

Suction 

0.057  - 

■150.000 

0.073 

-78.421 

0.090 

-45.387 

0.106 

-30.058 

0.123 

-19.035 

0.139 

-13.544 

0. 1'5 

-9.416 

0.172 

-7.768 

0.189 

-6.121 

0.205 

-4 , 970 

0.222 

-3.858 

0.238 

-3.087 

0.255 

-2.658 

0.271 

-2.230 

0.288 

-1.847 

0.304 

-1.518 

0.321 

-1.188 

0.337 

-0.859 

0.354 

-0.529 

0.370 

-0.200 

Unsat  K 
0.000000000023 
0.00000000014* 
0.000000000553 
0.000000001621 
0.000000004190 
0.000000009711 
0 . 000000020796 
0.000000040196 
0.000000071057 
0.000000117721 
0.000000187038 
0.000000288406 
0.000000427721 
0.000000608825 
0.000000837452 
0.000001119370 
0.000001465874 
0.000001913219 
0.000002609657 
0.000005070084 


Simulation  start  time  O.Ohrs 


Precipitation  begins  at  0.0  and  ends  at  25.5 
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Rainfall  data  time  increment  ■  0.5000  hrs 

Time  increment  for  iteration  period  ■  10.0  sees 

Maximum  evaporation  during  the  day  *  0.00000000  ms-1 
Surface  detention  capacity  *  0.0000  m 

INITIAL  SOIL  COLUMN  CONDITIONS 


SAT 

SAT  HYD 

CELL  DEPTH 

INITAL 

REL 

THETA 

COND 

NO 

THETA 

SAT 

m3/m3 

ms-1 

a 

m3/m3 

Layer 

1 

0.3710 

0.000033000015 

1 

0.0750 

0.3000 

0.809 

2 

0.2250 

0.3000 

0.809 

3 

0.3750 

0.3000 

0.809 

4 

0.5250 

0.3000 

0.809 

Layer 

2 

0.3710 

0.000033000015 

5 

0.6750 

0 . 3000 

0.809 

6 

0.8250 

0.3000 

0.809 

Layer 

3 

0 . 3710 

0.000033000015 

7 

0.9750 

0.3000 

0.809 

8 

1.1250 

0.3000 

0.609 

9 

1.2750 

0.3000 

0.809 

10 

1 . 4250 

0.3000 

0.809 

OSOIL  COLUMN  CONDITIONS  0.500  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Net  fliut 

Rel  sat 

1 

0.0750 

-1.7490 

0.2925 

0.000000922 

-0.000004233 

0.788 

2 

0  2250 

-1.6653 

0.2967 

0.000000993 

-0.000003147 

0.800 

3 

0.375C 

-1.6249 

0.2987 

0.000001028 

-0.000001820 

0.805 

4 

0.5250 

-1.6082 

0.2996 

0.000001042 

-0.000000840 

0.808 

5 

0.6750 

-1.6023 

0.2999 

0.000001047 

-0.000000317 

0  80d 

6 

0.8250 

-1.6006 

0.3000 

0.000001049 

-0.000000100 

0.809 

7 

0.9750 

-1.6001 

0.3000 

0.000001049 

-0.000000027 

0.809 

8 

1.1250 

-1.6000 

0.3000 

0.000001049 

-0.000000006 

0.809 

9 

1.2750 

-1 . 6000 

0.3000 

0.000001049 

-0.000000002 

0.809 

10 

1.4250 

-1.6000 

0.3000 

0.000001049 

0.000000000 

0.809 

OBalance 

i  check 

on  Boll 

column  water  status  ■ 

-0.0000006 

Balance  check  as  column  water 

Cumulative  evaporation  ■  0, 

Cumulative  precipitation  •  0. 

Cumulative  infiltration  *  0, 

Cumulative  drainage  -  0. 

vo  1 .  ■  0  . 

.00000000 

,0000 

.000000 

.001888 

0001306  Z 

Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 

Runoff  total  in  the  last  period  0.0000000  ins  0.500 

OSOIL  COLUMN  CONDITIONS  1.000  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Nat  flu* 

Rel  sat 

1 

0.0750 

-1.8336 

0.2883 

0.000000849 

-0.000003008 

0.777 

2 

0.2250 

-1.7342 

0.2933 

0.000000934 

-0.000002608 

0.790 

3 

0.3750 

-1.6719 

0.2964 

0.000000988 

-0.000001988 

0.799 

4 

0.5250 

-1.6356 

0.2982 

0.000001019 

-0.000001338 

0.804 

5 

0.6750 

-1  6162 

0.2992 

0.000001035 

-0.000000797 

0.806 

6 

0.8250 

-1.6068 

0.2997 

0.000001043 

-0.000000421 

0.808 
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7 

0.9750 

-1.6026 

0.2999 

0 . 000001047 

-0.000000199 

0.808 

8 

1.1250 

-1.6009 

0.3000 

0 . 000001048 

-0.000000084 

0.808 

9 

1.2750 

-1.6003 

0.3000 

0 . 000001049 

-0.000000033 

0.809 

10 

1.4250 

-1.6001 

0.3000 

0 . 000001049 

-0.000000014 

0.809 

OBalance 

check 

on  soil 

column  water  status  ■ 

-0.0000016 

Balance 

check 

as  column  water 

vol.  -  -0. 

0003621  2 

Cumulative  evaporation  -  0.00000000 

Cumulative  precipitation  *  0.0000 

Cumulative  infiltration  *  0.000000 

Cumulative  drainage  *  0.003777 

Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 
Runoff  total  in  the  last  period  0.0000000  ins  1.000 

OSOIL  COLUMN  CONDITIONS  1.500  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Net  flux 

Rel  sat 

1 

0.0750 

-1.8826 

0.2861 

0.000000816 

-0.000001740 

0.771 

2 

0.2250 

-1.7855 

0.2907 

0.000000890 

-0 . u00001926 

0.784 

3 

0.3750 

-1.7160 

0.2942 

0.000000950 

-0.000001701 

0.793 

4 

0.5250 

-1.6686 

0.2966 

0.000000990 

-0.000001367 

0.799 

5 

0.6750 

-1.6383 

0.2981 

0.000001016 

-0.000000996 

0.803 

6 

0.8250 

-1.6201 

0.2990 

0.000001032 

-O.OOOuOOPCi 

C  .806 

7 

0.9750 

-1.6099 

0.2995 

0.000001041 

-0.000000402 

0.807 

8 

1 . 1250 

-1.6046 

0.2998 

0.000001045 

-0.000000225 

0.806 

9 

1.2750 

-1.6021 

0.2999 

0.000001047 

-0.000000121 

0.808 

10 

1.4250 

-1.6011 

0.2999 

0.000001048 

-0.000000074 

0.808 

OBalance  check 

on  soil 

column  water  status  ■ 

-0. 00^0029 

Balance  check 

as  column  water 

vol.  -  -0. 

0006496  X 

Cumulative  evaporation  ■  0.00000000 

Cumulative  precipitation  ■  0.0002 

Cumulative  infiltration  ■  0.000229 

Cumulative  drainage  ■  0.005664 

Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 
Runoff  total  in  the  last  period  0.0000000  ins  1.500 

OSOIL  COLUMN  CONDITIONS  2.000  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Net  flux 

Rel  sat 

1 

0.0750 

-1.9232 

0.2844 

0. 0000007  12 

-0.000001402 

0.766 

2 

0.2250 

-1.827C 

0.2886 

0.000000855 

-0.000001601 

0.778 

3 

0.3750 

-1.7541 

0.2923 

0.000000917 

-0.000001488 

0.788 

4 

0.5250 

-1.7005 

0.2950 

0.000000963 

-0.000001286 

0.795 

5 

0.6750 

-1.6628 

0.2969 

0.000000995 

-0.000001034 

0.800 

6 

0.8250 

-1.6375 

0  2981 

0.000001017 

-0.000000775 

0.8C4 

7 

0.9750 

-1.6214 

0.2989 

0.000001031 

-0.000000544 

0.806 

8 

1.1250 

-1.6117 

0.2994 

0.000001039 

-0.000000362 

0.807 

9 

1.2750 

-1.6064 

0,2997 

0.000001044 

-0.000000238 

0.808 

10 

1.4250 

-1.6040 

0.2998 

0.000001046 

-0.000000174 

0.806 

OBalance  check  on  soil  column  water  status  •  -Q. 0000039 

Balance  check  as  column  water  vol.  -  -0.0008873  X 


Cumulative  evaporation  -  0.00000000 
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Cumulative  precipitation  *  0.0005 

Cumulative  infiltration  -  0.000508 

Cumulative  drainage  ■  0.007549 

Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 

Runoff  total  in  the  last  period  0.0000000  ins  2.000 


. compute  hyd . /continued 

OSOIL  COLUMN  CONDITIONS  25.000  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Net  flux 

Rel  sat 

1 

0.0750 

-2.8489 

0.2473 

0.000000399 

-0.000000422 

0.667 

2 

0.2250 

-2.7653 

0.2506 

0.000000429 

-0.000000413 

0.675 

3 

0.3750 

-2.6916 

0.2534 

0.000000455 

-0.000000409 

0.683 

4 

0.5250 

-2.6268 

0.2559 

0.000000481 

-0.000000419 

0.690 

5 

0.6750 

-2.5701 

0.2581 

0.000000507 

-0.000000433 

0.696 

6 

0.8250 

-2.5216 

0.2599 

0.000000530 

-0.000000441 

0.701 

7 

0.9750 

-2.4816 

0.2615 

0.000000548 

-0.000000452 

0.705 

8 

1.1250 

-2.4504 

0.2627 

0.000000562 

-0.000000456 

0.708 

a 

1.2750 

-2.4288 

0.2635 

0.000000572 

-0.000000460 

0.710 

10 

1 . 4250 

-2.4175 

0.2639 

0.000000578 

-0.000000460 

0.711 

OBalance  check  on  soil  column  water  status  *  -0.0000430 

Balance  check  as  column  water  vol.  ■  -0.0111281  l 


Cumulative  evaporation  -  0.00000000 

Cumulative  precipitation  *  0.0127 

Cumulative  infiltration  ■  0.012674 

Cumulative  drainage  ■  0.076113 

Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 

Runoff  total  in  the  last  period  0.0000000  ins  25.000 

OSOIL  COLUMN  CONDITIONS  25.500  HRS  SINCE  SIMULATION  BEGAN 


Cell 

Depth 

SWP 

Theta 

Hyd  cond 

Net  flux 

Rel  sat 

1 

0.0750 

-0.2656 

0.3669 

0.000004996 

0.000031808 

0.989 

2 

0.2250 

-0.8816 

0.3364 

0.000002054 

0.000070547 

0.907 

3 

0.3750 

-1.8334 

0.2888 

0.000000927 

0.000072419 

0.778 

4 

0.5250 

-2.4233 

0.2639 

0.000000575 

0.000027042 

0.711 

5 

0.6750 

-2.5476 

0.2590 

0.000000518 

0.000005381 

0.698 

6 

0.8250 

-2.5302 

0.2596 

0.000000526 

0.000000531 

0.700 

7 

0.9750 

-2.4948 

0.2610 

0.000000542 

-0.000000298 

0.703 

8 

1.1250 

-2.4645 

0.2621 

0.000000556 

-0.000000429 

0.707 

9 

1.2750 

-2.4430 

0.2630 

0.000000566 

-0.000000450 

0.709 

10 

1.4250 

-2.4318 

0,2634 

0.000000571 

-0.000000453 

0.710 

OBalance  check  on  soil  column  water  status  *  -0.0000434 

Balance  check  as  column  water  vol.  *  -0.0102382  1 


Cumulative  evaporation  ■  0.00000000 

Cumulative  precipitation  -  0.0508 

Cumulative  infiltration  ■  0.050800 

Cumulative  drainage  “  0.077147 
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Detention  capacity  exceeded 

Runoff  total  in  the  last  period  0.0000000  m 
Runoff  total  in  the  last  period  0.0000000  ins  25.500 


o  >o  m  *o  in 

in  k>  eg  oj  *- 

in'ttorg*- 

fNJ  fNJ  M  (\l 

0  0*0  0  0 
in  in  m  in  in 


4'0*-'fiNWin»->Oin>tf^eONMOO'»o^O'CO'0'Oo 

K*Jp»-Oini\i»-^M'i6'MMM(0'tSOMSO'jN«-'0 

OwK-'fl'»Mf\j*-oofiNN'6’Oinin>i'iKirgN*-ooo 

ooooooooogggg  §§§§§§§§§§§§£ 
inininj^ininminminmininininininininininininminin 


o  eg  m 


O  o  o 

°  ic  § 


o  o  o  o  o 

o  in  o  in  o 

in  K  o  nj  in 


o  o  o  o  o 
inomoinomoin 
e~ocgmN-of\jinN- 

'O'O'O'O’O'O'O’O'O'O'fl'^'i'O'6'O'O'O'O'i'fi'fi’fi'O'O'O 


o  o  o  o  o  o 


o  o  o  o  o  o  o 

o  in  o  in  o  in  o 

o  eg  m  K  o  nj  in 


s 


«-  'O  r\i 

N  r-  »- 

o  o  o 


N  N  CNJ 
O  O  O 
o  co  co 


N-  fNJ 

s  s 


o  *~ 
co  co 


co  eg  >o  O  eg  m 
in  in  >j  K)  Ki  (V 
oococOcocoaocococo 


co  •-  m  in 
•-  «-  o  o 
CO  CO  <0  K 


£ 


g  ic 


CM  O  CO 
CM  «—  O* 

r*w  so 


MMMMKlKIIOfOPOMMKIMfOMMMKlMMMMMWKIKIM 

ooo  ooooooooooooooooc  ooooooo 
ininminininminininininininininininininininininintnin 


ro  ro  m  ki 
0*000 
in  m  m  in 


oooooooooooo 

omoinoinoinoinoin 

oeginN-oegmS-oegmS- 


ooooooooooooooo 

Omoinoinoinoinoinoino 

owmsocMinNONinF.ONin 


IC 


ooo 
o  in  o 
o  ru  m 


coinininin*0'0'0'OS-^^h^ 


5  00  CO  CO  O  O  O  O 
>*  >*  **  ^  >«■ 


oooo*-*--- 
in  in  in  m  m  m  m 


*^rsiooor^>^ininonj«o^^)^o>r(M'0«-^moN.%Ttnrgoo«-’K» 

*-*-^-'0'OfsJinin»oc>co>tc5inpino>^oinO'OrMK.K»0'Omof,*--<r 

m*ocooo--*“*-*-*--ooooocoF^r^*0'0'Oinin-vt^pnrommf\jrj 

u-ooooooooooooooooooooooooooooooo 

inmininininininininininininininininininininininininininininm 


ooo 
o  in  o 
o  eg  m 


ic 


o  o  o  o 
o  in  o 
o  cm  m 


ooooooooooo 
inoinoinomoinoinoinoinoinomoin 
SONinK-OCNinN-OMinKOMinkONinK 

rgrgrgrgmmfO»n>r^*^>^inininin>d'0'O'0rs'N>N 
mmmmrOKJKimrnKiKiroroK'immmKimmmrofO 


oooooooooo 

moinomoinomo 

nJinN-oegmN-oegm 


H  tt  O  O  O 


nj  in  *-  o  •“ 
coroom*- 
o  o  o  co  co  co 


vt  o  m  rg 

fc  R  g  < 


o  o  in 
**•-*0  0 
>o  *©  m  m 


§ 


O'O'OIMN'OKg^'O 

N.mOK-K»0'0^rgO 


M-S?£S?PPO*££<>£ 

oooooioococodo 

minmininininininin 


inininminmininmin 


co  O  eg 

3  O  II 
w  g  a 

HO  UJ 

5  2  ~  5 


—  —  a. 


oooooooooo 

omoinomoinoin 

«/>oegmKO(Minr*-oiM 


o  o  o  o 
o  in  o 
m  K  o 


o 
o 
eg  m 


o  o 

ic  “ 


o  o 
o  in  o 
o  eg  m 


ooo 
o  m  o 
O  eg  m 


O  O 

ic  § 


O  O  o  o  o  o 

m  o  in  o  m  o 

eg  m  K-  o  eo  m 


ininmin*0'0'0'Ce>^^N-cooocoooooOO 


OpppOQOOOppppoOOO«-K>ONt(>JON. 
ooooooo  ooooooo-  ooooooeg-fi^'o 

MKIKIKlfOKIMMIOMWKIMKIMMIOMMWWngi^ 


K- 

S 


m  o 
■g  m 
eg  -n 


O' 

IS  s 


tOVCCOCOCOCOCOCOCOCO 

inmininininminininm 


KSSKSNNSNNSSK«ffl«>g 

~  OOCOCOCOCOCOCOCOtOCOiSaOcOCOCO 
-  “inminininminm 


cococofloaoococococococo 

ininmininininminininin 


ooooooooo 

mOinQinOinpm 

egmF-oegme-oeg 


7.750  589.463  22.750  589.076  37.750  594.215  52.750  593.686  67.750  589.907 


81 


«0  V-  N-  U> 

in  w-  'O  m 
to  CO  s  s 


CO  M  £>>  S  <0  NO 

«-  N-  *“  00 

"O  "O  m  m  m  ^ 


oo  rg 

m  m 

>1  >47 


■4  Kl  Kl  Kl  IO 


^'OOrg^*->ooj 
mm*“O00N»in^ 


O1  0s  O'  O'  O'  O'  O*  O’  O'  o  o 
oooococooocooocococooo 
minininininminininin 


ooooooooooooooooo 

TOOOCOOOCOOOCOOOCOCOQOCOOOCOCOCOCO 
u  ininininininmininminininininin 


o  o  o  o  o 


ooooooooooo 

inoinoinoinoinoinoinoinoinomoinoinoin 
Korginh-orginr-orginf^orginF-ofNiinF-orginF- 

2cgcgcg0'0'00'Oooo*-*-*-*-tNjf\jf\j(\jmmmrn->t'>j-vj-'^ 


o  o  o  o  o  o  o 

o  in  o  in  o  in  o 

m  N.  o  cm  m  F-  o 


o  o  o 
in  o 
rg  in 


t-  oo  in  cm 
m  rg 

>o  >o 


5  J  i 


O-  in  (\J 
g  O  « 


8 


in  in  in  in 


O  'O  -r-  S- 
cu  o 
in  in  in  >t 


(\JOO>JO'inOl/1(MN'OS>t>lK 

co'Oinm<\j*-o>*>*<MoocO'0 


roforoKimmromfom 

oooooooooo 

inmininininmininin 


rommmmtommmmKifnrotomrNjfNjiM 

oooooooooooooooooo 

inininininininininininmininmininin 


o  o  o  o 
o  in  o  in 
o  rg  in  S- 


O  O  o 
o  in  o 
o  w  m 


o  o 
o  in 
o  eg 


oooooooooooo 
omoinoinoinoinO 
orgmS-orgmK-or 


tc 


o  o  o 
in  o  in 
n  m  S 


inm'O'O'O'ON-N-fw.f^oOOOOOCOOOOO 

minininininininininininmininininin 


'O  oO  rg  N-  rg  o 

rg  o  o  K.  'O 

o  o  o  o 


NCOO--Kl^C7fMSrg 

rg*-*-ooc0S-N-'0'0intn 
oooooooooooo 


rg  K  ro  oo  >*  O  m 

g  g  ki  m  ro 

o  o  o  o  o  o 


g  g  g 
o  o  o 
m  m  in 


o  o  o 
o  in  o 
o  cm  m 


«g  ^  -g  »g  -g  >g 


oooooooooooooooooo 

ininminininininininininmininininin 


o  o  o  o  o  o  o 

*  o  m  o  in  o  in 

O  cm  m  S*  O  cm 


tc 


tc 


o  o  o 
o  in  o 
o  rg  m 


o  o  o 
o  m  o 
o  rg  m 


o  o 
in  o 
rg  m 


o  o  o 


rg  cm  rg  rg  ki  m 
^  ^  -g 


rg  o 

8  3 


>0  m 
rO  rg  «- 
o  o  o 


oo  in 
o  O 
o  o 


N.  «- 
«-  in 
o  o 


o  *- 

K>  O 

*-  rg 


f'ifNJinKjinw'OO'Ki'O 

•-'OOOOinKrjOsj'K 

>g'Ooo»“inKorg'00 


O  (D  *- 

C5  ‘ 


O*  O'  to 
oo  00  oo  <o  oo 
in  in  in  m  m 


O  O 
oo  oo 
in  m 


O  O 
oo  oo 
m  in 


o  o 
oo  oo 
m  m 


O  O 
oo  oo 
in  m 


O'  O  O  p  ©  p 

co  co  co  o  O'  O' 

m  m  in  m  m  m 


cm 

O'  a  o  O' 

m  in  m  in 


•  •  •  rg  in 

m  k»  m  *-  o 

“  o  O'  ki  m 

in  m  in 


o  o 
in  o 
rg  m 


o  o 
m  o 
rg  m 


o  o  o 


tc 


o  o  o  o  o 


tc 


O  O  o 
o  in  o 
o  rg  m 


o 

o 

o 


o  o 
m  o 
rg  in 


torototoggggm 

rgrgrgrgrgnjrgrgrg 


O'O'O^^K. 

rg  rg  rg  rg  rg  rg 


00 

rg 


R  R 


£2  in 

o  OO 


rg*-rg*-K>rgpo»noonjinooO'0»-pQ«OOK>inomK 

Srg'OcoQnjpomrgrg*-p/>  O  oo  K  0  -g  fn  o  K  -g  --  o 
ing^m'O'O'O'O'O'O'O'Oininmininininingggro 


ii  »— 

uj  < 

X  > 


ssssssssssssssssssssssssssss 

inminininininininininininintninininminmininininininin 


O  uj 


oooooooooo 

§inoinomoinom 
rgirsOMinKon 


oooooooo  _  _  _ 
oinomou^omoinQ 
mKorginK-orvimKO 


oooooooo 
“  o  in  o  m  o  ^ 
m  K  o  rg  m  K. 


ooooooooO'0'00‘OOOo*-*-*-*~rgrgrgrgfnmmKi'g'>t>gvtxa. 


o 


FINISH 


82 


Chapter  3 


MILHY3  :  Program  details 


3. 1  Program  Contents 


MAIN 

HONDO 

STHYD 

CMPHYD 

SOILM 

HYDCON 

TWO 

GRAD 

SMCURV 

PRTHYD 

HPLOT 

ADHYD 

SRC 

CMPRC 

STT 

CMPTT 

ROUTE 

RESVO 

ERROR 

SEDT 


Functions : 
GIT 
RMAX 
RMIN . 


BLOCK  DATA 
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3.2  Program  Changes  Since  MILHY2 

The  main  changes  made  to  the  MILHY  code  have  been  to  improve 
the  predictive  capability  of  the  downstream  conveyance  estimation, 
specifically  under  out-of-bank  conditions.  In  addition,  a  modular 
structure  has  been  established  which  allows  the  user  to  select 
routines  most  appropriate  to  a  particular  application.  The  new 
routines  introduced  in  MILHY3  require  the  user  to  select  one  of  four 
methods  of  momentum  exchange,  and  a  single  or  multiple  routing  reach 
application.  The  user  may  also  select  either  the  Curve  Number 
routine  (reintroduced  from  the  original  MILHY  code),  or  the 
infiltration  algorithm  utilized  in  MILHY2. 

The  structure  of  the  MILHY3  code  remains  similar  to  that  of 
MILHY2.  The  new  capabilities  are  incorporated  either  in  existing 
subroutines  or  are  facilitated  by  the  user  in  the  'datal'  data  set. 
It  is  important  to  note,  therefore,  that  substantial  changes  must  be 
made  to  the  datal  data  set  before  the  multiple  routing  routine  can 
be  utilized.  The  user  is  strongly  recommended  to  study  the  example 
data  set  given  in  Chapter  2  of  this  volume. 

Significant  program  changes  have  been  made  in  the  following 
subroutines : 

CMPRC 

ROUTE 

PRTHYD 

The  introduction  of  the  out-of-bank  routing  facilities  and  the 
selection  of  techniques  have  increased  the  amount  of  data  that  must 
be  entered  from  the  datal  data  set.  The  BLKDTA  subroutine  has  been 
amended  to  enable  this  additional  data  to  be  read,  and  the  COMMON 
BLOCKS  have  been  restructured  to  improve  the  efficiency  of  the 
transfer  of  this  data.  Three  COMMON  BLOCKS  are  now  utilised; 
the  first  contains  control  and  read  information,  the  second 
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hydrograph  information,  and  the  third  routing  information.  Array 
sizes  have  been  increased  in  certain  variables,  notably  A,  Q  and 
DEEP,  and  the  definition  of  the  variable  C  has  changed.  The  punch 
code  capabilities  have  been  removed  from  MILHY3,  and  several  bugs 
have  been  fixed. 

The  version  documented  in  this  volume  runs  on  the  SUN 
workstation  and  many  other  UNIX  environments.  Chapter  4  contains 
the  changes  necessary  to  MILHY3,  to  enable  operation  on  an  IBM-PC. 
These  changes  are  minor  except  for  the  provision  of  a  random  number 
generating  routine. 

3.3  Subroutine  Details 


SUBROUTINE  NAME:  MAIN 


SYNOPSIS: 


COMMAND: 

INPUT: 


OUTPUT: 


Opens  files  for  input  and  output.  Initialises 
certain  variables.  Calls  appropriate  subroutine 
according  to  command. 


Two  data  files  called  'datal'  and  'data2'  must 
exist . 

'datal '  -  contains  programme  controls  and  data 
'data2'  -  additional  information  for  the 
infiltration  algorithm 

See  Chapter  2  for  details  of  these  two  data 
f  i  les 

Opens  the  output  file  'results'  to  which  the 
details  of  the  simulation  are  to  be  sent. 


VARIABLES  USED: 


Variables  held  in  common  block  'BL0CK1' 


CTBLE( 50,11) 

ITBLE(50, 12) 

ZALPHA  (20) 

MAXNO 

NCOUE 

ICC 

NCOMM 


command  table 
integer  table 
alphanumeric  code  table 

maximum  number  of  data  entries  for  any  one  command 

command  number 

continuation  card 

total  number  of  legal  commands 
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Variables  held 


OCFS(300,6 ) 
DATA(3 10) 
RAIN ( 300 ) 

ROIN(6) 

IEND(6) 

DA(6 ) 

DT(6 ) 

PEAK(6 ) 

TIME 

KCODE 

ICODE 


Variables  held 


A(20 ,70) 
Q(20,70) 
DEEP(20 , 70 ) 
DP(20) 

SCFS ( 20 ) 

C(20,6) 

DIST (6 ) 

SEGN(6 ) 

ISG(6 ) 

PERQ (20,70) 

TQ ( 20 ,6 ) 

CC( 20 ) 

LL(6 ) 

INRC 

LRC 


in  common  block  * BL0CK2' 


discharge 

data  input  for  each  command 
cumulative  precipitation  at  equal  time 
increments 

volume  of  discharge  hydrograph 
number  of  points  in  hydrograph 
drainage  area 
time  increment 

peak  discharge  of  hydrograph 
simulation  start  time 

measurement  unit  of  input  data  (datal) 
KCODE  =  0  imperial 
measurement  unit  of  output 
ICODE  =  0  imperial 


in  common  block  'BL0CK3' 


end  area 
discharge 

elevation  of  water  surface 

flow  depth  for  previously  computed  travel  time 
flow  relationship 

discharge  for  previously  computed  travel  time 
flow  relationship 
absolute  stage  elevations 

segment  boundary  point  for  each  segment  of  a 

floodplain  and  channel  cross-section 

Mannings  'n'  for  segment  of  a  floodplain  and 

channel  cross-section 

last  elevation  input  for  each  segment 

percentage  discharge  for  segment  of  a  floodplain 

and  channel  cross-section 

total  discharge  for  cross-section 

travel  time  coefficient  for  previously  computed 

travel  time  relationship 

number  of  zero  discharge  values  for  segment  of  a 
floodplain  and  channel  cross-section 
identification  number  for  upstream  segment  rating 
curve 

identification  number  for  downstream  segment 
rating  curve 
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CONSTRAINTS : 


CALLED  BY: 

SUBROUTINES 

CALLED: 


The  most  important  constraints  in  this  program 
involve  the  limits  to  array  size  which  are 
dimensioned  in  COMMON.  For  example,  program  can 
only  hold  6  hydrographs  or  6  rating  curves  at  any 
one  time.  15  commands  which  are  defined  in  BLOCK 
DATA  are  used  by  MILHY2  (as  in  the  original  form  of 
MTLHY).  The  legal  values  for  these  are  provided  in 
HONDO  and  appendix  I. 


HONDO 

STHYD 

CMPHYD 

PRTHYD 

HPLOT 

ADHYD 

SRC 

CMPRC 

STT 

CMPTT 

ROUTE 

RESVO 

ERROR 

SEDT 


FUNCTIONS  CALLED: 


NOTES 
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SUBROUTINE 

SYNOPSIS: 

COMMAND : 
INPUT: 


OUTPUT: 


NAME :  HONDO 

Reads  in  command  and  associated  data  from  file 
' datal ' 

and  by  comparison  to  the  legal  commands  contained 
in  CTBLE  (initialized  in  BLOCK  DATA),  it  determines 
the  command  number  (NCODE).  It  collects  up  the 
variables  from  the  variable  format  data  field. 


Data  is  read  in  from  file  'datal'. 

Command  must  be  located  in  the  first  20  columns  on 
each  line,  and  is  read  in  variable  ALPHA  (II) 
(FORMAT  2A1.9A2).  The  data  must  be  in  columns  21 
to  80,  and  is  read  into  variable  CHAR  (60)  (FORMAT 
(60A1 ) . 

Legal  commands  are: 

START 
STORE  HYD 
COMPUTE  HYD 
PRINT  HYD 
PLOT  HYD 
ADD  HYD 

STORE  RATING  CURVE 
COMPUTE  RATING  CURVE 
STORE  TRAVEL  TIME 
COMPUTE  TRAVEL  TIME 
ROUTE 

ROUTE  RESERVOIR 
ERROR  ANALYSIS 
SEDIMENT  YIELD 
FINISH 

Additional  legal  entries  to  file  'datal'  include: 

'*'  in  column  1  -  if  the  line  is  a  comment  line 
'*'  in  column  80  -  if  a  new  page  is  required  for 
output 

Writes  out  the  command  and  associated  data  to  file 
'results’,  and  returns  the  value  of  NCODE  to  MAIN 
which  is  then  used  to  select  the  next  subroutine  to 
be  called.  All  data  which  has  been  collected  for 
the  command  is  held  in  common,  in  the  array  DATA 
(310). 
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VARIABLES  USED:  Variables  held  in  common  plus 

CHAR(60)  data  and  associated  text 

ALPHA( 11)  command 

AUXA(IO)  array  used  to  collect  up  data 

AUXB(IO)  array  used  to  collect  up  data 


CONSTRAINTS:  The  form  of  the  data  file  'datal'  must  be  strictly 

adhered  to.  HONDO  will  not  tolerate  spelling 
mistakes. 

The  command  and  data  must  also  be  entered  into  the 
correct  columns.  The  data  must  be  in  the  order 
which  is  expected  by  HONDO  (these  details  are 
provided  in  Chapter  2). 

CALLED  BY:  MAIN 

SUBROUTINES 

CALLED: 

FUNCTIONS  GIT 

CALLED: 


NOTES 
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SUBROUTINE  NAME;  STHYD 

SYNOPSIS:  A  model  contn.1  procedure.  Stores  the  coordinates 

of  a  measured  hydrograph  and  adds  a  constant 
baseflow  discharge  to  all  data  p.ints. 

COMMAND: 

INPUT:  The  data  input  for  this  command  has  been  read  into 

DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

NHD 

DT(ID) 

DA(ID) 

BSF 

OCFS (300 , ID ) 

OUTPUT:  Stores  discharge  hydrograph  (time  and  associated 

discharge  values),  runoff  volume,  and  peak 
discharge : 

OCFS(300,ID) 

ROIN(ID) 

PEAK(ID) 

VARIABLES  USED:  Variables  held  in  common  plus 

ID  storage  location  number 

NHD  hydrograph  identification  number 

BSF  baseflow  discharge 

DUMMY(300)  discharge  values  converted  to 

metric  units 

CONSTRAINTS:  Only  6  hydrographs  at  any  one  time  can  be  stored  by 

this  program.  In  any  one  hydrograph,  a  maximum  of 
300  points  are  allowed. 

CALLED  BY:  MAIN 

SUBROUTINES 
CALLED : 

FUNCTIONS 

CALLED: 


NOTES: 


If  the  addition  of  baseflow  is  not  required,  a  zero 
value  must  be  entered. 
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SUBROUTINE  NAME:  CMPHYD 

SYNOPSIS:  Hydrological  procedure. 

Developes  unit  hydrograph  and  convolves  it  with 
incremental  runoff  to  produce  the  discharge 
hydrograph.  Runoff  is  derived  by  calling 
subroutine  SOILM,  utilizing  the  infiltration,  or 
using  the  curve  number  routine 

COMMAND:  COMPUTE  HYD 

INPUT:  Data  has  been  read  into  DATA(310)  by  HONDO  and  is 

transferred  from  this  array  into  the  following 
variables  which  are  used  in  this  subroutine: 

ID 

NHD 

DT(ID) 

DA(ID) 

CN 

HT 

XL 

RAIN(300) 

OUTPUT:  Stores  the  calculated  discharge  hydrograph,  runoff 

volume,  and  peak,  discharge 

OOFS' 300, ID) 

ROIN(ID) 

PEAK(ID) 

VARIABLES  USED:  Variables  held  in  common  plus 

ID  storage  location  number 
NHD  hydrograph  identification  number 
HT  difference  in  elevation 
XL  length  of  main  channel 

CONSTRAINTS:  A  maximum  of  6  hydrographs  can  be  stored. 

A  maximum  of  300  data  can  be  included  in  the 
precipitation  data. 

CALLED  BY:  MAIN 

SUBROUTINES  SOILM 

CALLED : 

FUNCTIONS 

CALLED: 

NOTES :  This  subroutine  has  been  updated  to  permit  the  user  to 

select  the  curve  number  routine  or  the  infiltration 
algorithm.  To  select  the  infiltration  algorithm,  a  CN 
value  of  zero  must  be  entered. 
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SUBROUTINE  NAME: 
SYNOPSIS: 


COMMAND : 
INPUT: 


OUTPUT : 

VARIABLES  USED: 


SOILM 

Simulation  of  infiltration  and  hence  incremental 
runoff  associated  with  a  particular  storm  event, 
and  redistribution  of  soil  water  after 
precipitation  ceases.  Includes  a  stochastic 
methodology  for  incorporating  spatial  variability 
of  soil  hydrological  properties. 


Certain  data  has  been  passed  from  CMPHYD  to  SOILM: 

DT(ID) 

IR 

CUMRAIN 

Remaining  variables  are  read  directly  into  SOILM 
from  data  file  ' datal'.  The  details  of  the  form  of 
this  data  file  and  the  information  which  is 
required  by  SOILM  are  elsewhere  in  this  volume. 

Provides  incremental  runoff  which  is  located  in 
DATA(300)  and  which  is  passed  back  to  CMPHYD.  This 
runoff  is  at  the  same  time  interval  as  the 
precipitation  data  which  has  been  supplied 
(DT(ID) ) . 

DT(ID) 

IR 

CUMRAIN(251) 

TIME 
SIMDUR 
ALR 
AMR 
AF 

NLA 

NLS 

NLB 

NL 

TCOM(20) 

NSCOL 

IPCAREA 
SRI 

SR2 

SR3 


Time  increment  for  precipitation  and 

hence  runoff  data 

number  of  rainfall  observations 

cumulative  rainfall  totals 

time  when  simulation  begins 

simulation  duration  (hours) 

rain  start  timem  (hours) 

rain  stop  time  (hours) 

simulation  iteration  period 

(seconds) 

number  of  cells  in  layer  1  in  soil 
column 

number  of  cells  in  layer  2  in  soil 
column 

number  of  cells  in  layer  2  in  soil 
column 

number  of  cells  in  soil  column 
thickness  of  each  cell  (metres) 
number  of  soil  columns 

percent  are  occupied  by  soil  column 

soil  water  content  at  saturation, 

layer  1  in  soil  column 

soil  water  content  at  saturation, 

layer  2  in  soil  column 

soil  water  content  at  saturation, 

layer  3  in  soil  column 
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ASR 1 
ASR2 
ASR3 


Same  variable  definitions  as  the 
three  above,  but  variable  types 
are  DOUBLE  PRECISION  rather  than 
REAL 


SSR 1 
SSR2 
SSR3 


Standard  deviation  of  SRI 
Standard  deviation  of  SR2 
Standard  deviation  of  SR3 


SATCON 

SATC0N2 

SATC0N3 


saturated  hydraulic  conductivity 
(metres  per  second)  layer  1 
saturated  hydraulic  conductivity 
(metres  per  second)  layer  2 
saturated  hydraulic  conductivity 
(metres  per  second)  layer  3 


ASATCON  Same  variable  definitions  as  the 

ASATC0N2  three  above,  but  variable  types 

ASATC0N3  are  DOUBLE  PRECISION  rather  than 

REAL 


SSATC0N1  Standard  deviation  of  SATC0N1 

SSATC0N2  Standard  deviation  of  SATC0N2 

SSATC0N3  Standard  deviation  of  SATC0N3 

DETCAP  surface  detention  capacity  (metres) 

ADETCAP  DOUBLE  PRECISION  surface  detention 

capacity 

SDETCAP  Standard  deviation  of  detention 

capacity 

THETA(20)  initial  soil  water  content  for  each 

cell  (cubic  metres  per  cubic  metres) 

ATHETA(20)  DOUBLE  PRECISION  initial  soil  water 

content  (cubic  metres  per  cubic 
metres ) 

STHETA  Standard  deviation  of  THETA(20) 


NQ 

X(20) 

Y(20) 

X2(20) 
Y2 (20 ) 


number  of  observations  on  soil 
moisture  characteristics  curve 
moisture  values  on  soil  moisture 
characteristic  curve  for  layer  1 
(cubic  metres  per  cubic  metres) 
suction  values  on  soil  moisture 
characteristic  curve  for  layer  1 
(metres) 

moisture  values  on  soil  moisture 
characteristic  curve  for  layer  2 
(cubic  metres  per  cubic  metres) 
suction  values  on  soil  moisture 
characteristic  curve  for  layer  2 
(metres ) 
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CONSTRAINTS: 


CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


X3(20) 


Y3 (20 ) 


AX ( 2  0 ) 
AX2 (20 ) 

AX3 (20 ) 
REAL 


moisture  values  on  soil  moisture 
characteristic  curve  for  layer  3 
(cubic  metres  per  cubic  metres) 
suction  values  on  soil  moisture 
characteristic  curve  for  layer  3 
(metres) 

Same  variable  definitions  as  the 
X(20) ,  X2 (20) ,  and  X3(20)  above, 
but  variable  types 
are  DOUBLE  PRECISION  rather  than 


SCURV1 

SCURV2 

SCURV3 


Standard  deviation  of  soil  moisture 
characteristic  curve  for  layer  1 
Standard  deviation  of  soil  moisture 
characteristic  curve  for  layer  2 
Standard  deviation  of  soil  moistire 
characteristic  curve  for  layer  3 


EMAX 

WT 
I  OUT 


maximum  evaporation  during  the  day 
(metres  per  second) 

write-out  time  interval  (hours) 
determines  amount  of  output 
if  (I0UT=1)  total  output 
if  (I0UT=0)  shorter  output 


A  maximum  of  10  soil  columns  for  any  one 
subcatchment  area  is  permitted. 

The  soil  moisture  characteristic  curve  can  be 
defined  by  up  to  a  maximum  of  20  points. 

The  soil  column  can  have  a  maximum  of  20  cells. 
The  initial  soil  moisture  contents,  defined  for 
each  cell  at  the  start  of  simulation,  must  lie 
within  the  range  of  the  soil  moisture 
characteristic  curve. 


CMPHYD 


HYDCON 

TWO 

GRAD 

SMCURV 

G05DDF(NAG  subroutine) 

RMAX 

RMIN 


NOTES: 
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SUBROUTINE  NAME:  HYDCON 

SYNOPSIS:  Calculates  hydraulic  conductivity  for  a  particular 

layer  in  the  soil  column  from  the  soil  moisture 
characteristic  curve,  using  the  Millington  and 
Quirk  method. 

COMMAND: 

INPUT:  Variables  passed  from  SOILM: 

X(20) 

Y(20) 

SATCON 

SR 

OUTPUT:  Unsaturated  hydraulic  conductivity  values  are 

passed  back  to  SOILM  in  Z(20). 

VARIABLES  USED:  X(20)  moisture  values  on  soil  moisture 

characteristic  curve  for  the 
particular  layer  (cubic  metres  per 
cubic  metres) 

Y(20)  suction  values  on  soil  moisture 

characteristic  curve  for  the 
particular  layer  (metres) 

SATCON  saturated  hydraulic  conductivity  for 

the  particular  layer 

SR  saturated  soil  moisture  content  for 

the  particular  layer 

Z(20)  unsaturated  hydraulic  conductivity 

values  corresponding  to  X(20)  above. 

CONSTRAINTS:  Maximum  points  on  the  soil  moisture  characteristic 

curve,  and  hence  the  hydraulic  function  is  20. 

CALLED  BY:  SOILM 

SUBROUTINES 

CALLED : 

FUNCTIONS 

CALLED: 


NOTES 
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SUBROUTINE  NAME:  TWO 


SYNOPSIS:  Calculates  the  soil  water  pressure,  hydraulic 

potential,  and  hydraulic  conductivity  for  each  cell 
in  the  soil  column,  associated  with  a  particular 
soil  water  content. 

COMMAND : 


INPUT:  Variables  passed  from  SOILM: 

NA 

NB 

G(20  ) 

GZ(20) 

Z(20) 

X(20) 

Y  (20) 

DEPTH(20 ) 

OUTPUT:  Soil  water  pressure,  hydraulic  potential,  and 

hydraulic  conductivity  are  passed  back  to  SOILM 

SWP(20) 

HP0T(20) 

COND(20 ) 


VARIABLES  USED:  NA 

NB 

THETA(20) 
G(20 ) 

GZ(20) 

X(20) 

Y(20 ) 

Z(20) 

DEPTH (20) 

SWP(20) 

HP0T(20) 

COND(20) 


number  of  cells  in  layer  1 
number  of  cells  in  layer  2 
initial  soil  moisture  content  of 
each  cell 

gradient  of  soil  moisture 
characteristic  curve,  ie  grad 
between  each  pair  of  points 
gradient  of  hydraulic  function,  ie 
grad  between  each  pair  of  points 
moisture  values  on  soil  moisture 
characteristic  curve  for  the 
particular  layer  (cubic  metres  per 
cubic  metres) 

suction  values  on  soil  moisture 
characteristic  curve  for  the 
particular  layer  (metres)  values 
unsaturated  hydraulic  conductivity 
values  corresponding  to  X(20)  above 
distance  from  surface  to  the 
midpoint  of  each  cell 
soil  water  pressure  of  each  cell 
hydraulic  potential  of  each  cell 
conductivity  of  each  cell 
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CONSTRAINTS:  A  maximum  of  20  cells  in  the  soil  column  is 

permitted 

CALLED  BY:  SOILM 

SUBROUTINES 

COMMAND: 

FUNCTIONS 
COMMAND : 

NOTES; 
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SUBROUTINE  NAME: 
SYNOPSIS  : 

INPUT: 

OUTPUT: 

VARIABLES  USED: 


CONSTRAINTS : 

CALLED  BY: 

SUBROUTINES 

COMMAND: 

FUNCTIONS 

COMMAND: 


GRAD 

Calculates  the  gradient  of  the  soil  moisture 
characteristic  curve,  and  hydraulic  conductivity 
function. 

Variables  passed  from  SOILM: 

X(20 ) 

Y(20 ) 

Z(20) 

Variables  containing  gradients  passed  back  to 
SOILM. 


G(20) 

GZ(20) 


X(20) 

moisture  values  on  soil  moisture 
characteristic  curve  for  the 
particular  layer  (cubic  metres  per 
cubic  metres) 

Y  (20) 

suction  values  on  soil  moisture 
characteristic  curve  for  the 
particular  layer  (metres)  values 

Z(20) 

unsaturated  hydraulic  conductivity 
values  corresponding  to  X(20)  above 

G(20) 

gradient  of  soil  moisture 
characteristic  curve,  i.e.  gradient 
between  each  pair  of  points 

GZ(20 ) 

gradient  of  hydraulic  function,  i.e 
gradient  between  each  pair  of  point 

A  maximum  of  20  cells  in  the  soil  column  is 
permitted 

SOILM 


NOTES 
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SUBROUTINE  NAME: 
SYNOPSIS: 

INPUT: 


OUTPUT: 

VARIABLES  USED: 


CONSTRAINTS: 

CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 
CALLED : 


SMCURV 


Generates  new  soil  moisture  characteristic  curve 
based 

on  the  randomly  generated  moisture  values. 

Variables  passed  from  SOILM: 

AX(20 ) 

Y  (20) 

SCURV 

SR 

NQ 


Coordinates  of  new  soil  moisture  characteristic 
curve  passed  back  to  SOILM: 


XNEW(20) 
YNEW(20 ) 

AX(20 ) 

Y(20) 

SCURV 

SR 

NQ 

XNEW(20 ) 

YNEW(20 ) 


values  of  soil  moisture  on  input 
soil  moisture  characteristic  curve 
DOUBLE  PRECISION  variable  type 
values  of  suction  on  input  soil 
moisture  characteristic  curve 
standard  deviation  of  soil  moisture 
characteristic  curve  in  DOUBLE 
PRECISION 

saturated  soil  moisture  content 
number  of  coordinates  defining  soil 
moisture  characteristic  curve 
generated  soil  moisture  content  on 
new  soil  moisture  characteristic 
curve 

generated  suction  values  on  new  soil 
moisture  characteristic  curve 


A  maximum  of  20  points  to  define  the  soil  moisture 
characteristic  curve 


SOILM 

G05DDF  (NAG  subroutine) 


RMIN 

RMAX 


NOTES 


99 


Chapter  3 

SUBROUTINE 

SYNOPSIS: 

COMMAND: 

INPUT: 


OUTPUT: 


VARIABLES 


NAME ;  PRTHYD 


Model  control  procedure. 

Prints  out  the  coordinates  of  a  hydrograph  and/or 
the  peak  value  and  runoff  volume. 

Converts  OCFS(300,ID)  to  a  stage  array,  S(300,ID) 
using  a  recalled  rating  curve. 

PRINT  HYD. 

The  data  input  for  this  command  has  been  read  into 
OCFS(300,ID)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 
NPK 
I  DR 
IN 

Details  of  the  hydrograph  are  held  in  common  and 
are  referenced  by  ID. 

Discharge,  DUMMY(300)  or  stage,  S(300,ID) 
hydrograph  are  written  to  output  file  'results'. 

DUMMY (300) 

S(300,ID) 

R0IN1 

PEAK1 

PEAKS 

USED:  Variables  in  common  plus 


ID 

NPK 


IDR 


IN 


DUMMY (300) 

S(300,ID) 

PEAK1 

ROINI 

PEAKS 


storage  location  number 
form  of  output  required 
0  peak  and  volume  only 

1  discharge  hydrograph 

2  stage  hydrograph 
identification  number  of  rating 
curve  or  segment  to  be  used  for 
conversion  to  a  stage  hydrograph 
format  of  output 

0  five  columns  across  page 
1  single  column 

discharge  array  (converted  to  metric 

units  if  required) 

stage  array  (converted  to  metric 

units  if  required) 

peak  discharge 

volume  of  hydrograph 

peak  stage 
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CONSTRAINTS : 

CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 

NOTES : 


Maximum  of  300  points  define  the  hydrograph.  For 
conversion  to  stage  hydrograph,  rating  curve  must 
have  been  computed.  A  stage  hydrograph  cannot  be 
computed  if  multiple  routing  is  invoked. 

MAIN 


Conversion  to  a  stage  hydrograph  uses  a  previously 
computed  rating  curve. 
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SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND : 

INPUT: 


OUTPUT: 

VARIABLES  USED: 

CONSTRAINTS: 

CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


HPLOT 

Model  control  procedure. 

Plots  either  1  or  2  hydrographs  on  a  set  of  axis. 
PLOT  HYD. 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine:- 

ID1 

ID2 

Details  of  the  2  hydrographs  are  held  in  common 
variables  and  are  references  by  ID1  and  ID2 

Discharge  plots  and  axis  are  written  to  output  file 
' results ' . 

CFS(300) 

Variables  in  common  plus 

ID  1 
ID2 

If  the  time  interval  of  the  two  hydrographs  to  be 
plotted  is  not  equal,  the  larger  increment  is 
selected  and  the  other  hydrograph  points  are 
interpolated  at  this  increment. 

MAIN 


NOTES : 
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SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND: 

INPUT: 


OUTPUT: 


VARIABLES  USED: 


CONSTRAINTS: 

CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


ADHYD 

Model  control  procedure 

Adds  together  the  coordinates  of  two  hydrographs 
ADD  HYD 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

NHD 

ID1 

ID2 

Details  of  the  2  hydrographs  are  held  in  common 
variables  and  are  referenced  by  ID1  and  ID2 

The  discharge  coordinates,  peak  discharge,  and 
runoff  volume  of  the  resultant  hydrograph: 

OCFS(300 , ID) 

PEAK (ID) 

ROIN(ID) 

Variables  in  common  plus 

ID  storage  location  number  for 

r^  iltant  hydrograph 

NHD  I  ydrograph  identification  number 

of  resultant  hydrograph 

ID1,  ID2  storage  location  numbers  of  the 

two  hydrographs  to  be  added 

If  the  time  interval  of  the  two  hydrographs  to  be 
added  is  not  equal,  then  the  smaller  increment  is 
selected  and  the  other  hydrograph  points  are 
interpolated  at  this  increment. 

MAIN 


NOTES; 
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SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND: 

INPUT: 


OUTPUT: 


VARIABLES  USED: 

CONSTRAINTS: 

CALLED  BY: 

SUBROUTINES 
CALLED : 

FUNCTIONS 

CALLED: 


SRC 


A  model  control  procedure 

Stores  a  rating  curve  in  form  of  elevation,  end 
area,  discharge  table 

STORE  RATING  CURVE 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

VS 

DEEP(20 , ID ) 

A(20, ID) 

Q(20,ID) 

Stores  the  rating  curve  in  variables  held  in 
common: 

DEEP(20 , ID) 

A(20,ID) 

Q(20,ID) 

Variables  held  in  common  plus 

ID  storage  location  number  of  rating 

curve 

VS  valley  cross  section  number 

Only  6  rating  curves  can  be  held  within  the  program 
at  any  one  time. 

Maximum  number  of  points  defining  rating  curve  are 

20. 


MAIN 


NOTES: 
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SUBROUTINE 

SYNOPSIS: 


COMMAND : 
INPUT: 


OUTPUT: 


VARIABLES 


NAME:  CMPRC 

A  hydrological  procedure. 

Computes  rating  curve  for  valley  cross  section 
using  Mannings  equation.  If  turbulent  exchange 
routines  are  invoked  calculates  rating  curve 
incorporating  momentum  transfer  between  channel  and 
floodplain  flows  during  out-of-bank  conditions.  If 
multiple  routing  reaches  are  invoked  calculates 
separate  rating  curves  for  each  segment  of  the 
cross-section  and  computes  the  percentage  of  total 
flow  which  would  occur  in  each  segment  at  the 
twenty  stage  computation  points. 

COMPUTE  RATING  CURVE 

The  data  input  for  this  comm;  _  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

IT 

MR 

VS 

NSEG 

ELO 

EMAX 

SLOPE  1 

SL0PE2 

SEGN(NSEG) 

DIST(NSEG) 

DATA( 10:310) 

Stores  the  rating  curve  and  percentage  flow  in  each 
segment  in  variables  held  in  common 

A(20,ID) 

Q(20, ID) 

C(20,ID) 

DEEP(20,ID) 

PERQ(20, ID) 

TQ(20,ID) 

USED:  Variables  held  in  common  plus 

ID  storage  location  number  for  rating 

curve 

IT  turbulent  exchange  between  main 

channel  and  floodplains  invoked 
MR  multiply  routing  reaches  invoked 
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valley  section  identification  number 
number  of  segments  in  valley  section 
lowest  elevation 
maximum  elevation 
channel  slope 
flood  plain  slope 

alternate  distances  and  elevations 
(defining  cross  section) 

CONSTRAINTS:  Maximum  number  of  segments  in  a  cross  section  is  6. 

Maximum  number  of  points  in  a  rating  curve  is  20. 
Turbulent  exchange  and  multiple  routing  reaches  may 
be  invoked  independently  but  for  either  to  operate 
there  must  be  a  floodplain  segment  on  either  side 
of  channel  segments.  For  accuracy  the  user  is 
recommended  to  have  cross-sectional  positional  data 
(DIST  and  ELEV)  close  to  segment  boundaries.  If 
momentum  exchange  is  not  or  cannot  be  invoked,  the 
MILHY2  version  using  IT  =  2  is  used. 

CALLED  BY:  MAIN 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


NOTES :  The  user  is  recommended  to  study  the  example  datal 

data  set  in  Chapter  2  of  this  volume  before 
undertaking  multiple  routing  applications. 


VS 

NSEG 
ELO 
EMAX 
SLOPE  1 
SL0PE2 

DATA  (10:310) 
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SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND : 

INPUT: 


OUTPUT : 


VARIABLES  USED: 


CONSTRAINTS: 

CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


STT 

Model  control  procedure. 

Stores  a  depth,  flow,  travel  time  table  (used  in 
flood  routing). 

STORE  TRAVEL  TIME 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

REACH 

XL 

SLOPE 

MET1 

DP(20) 

SCFS(20) 

CC(20) 

Stores  travel  time  table  in  following  common 
variables : 

DP(20) 

SCFS(20) 

CC(20 ) 

Variables  held  in  common  plus 

ID  storage  location  number 

REACH  reach  identification  number 

XL  length  of  reach 

SLOPE  slope  of  reach 

A  maximum  of  20  points  are  allowed  to  define  a 
travel  time  table. 

MAIN 


NOTES : 
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SUBROUTINE  NAME:  CMPTT 

SYNOPSIS:  Hydrological  procedure. 

Compute  travel  time  table. 

COMMAND:  COMPUTE  TRAVEL  TIME 

INPUT:  Data  has  been  read  into  DATA(310)  by  HONDO  and  is 

transferred  from  this  array  into  the  following 
variables  which  are  used  in  this  subroutine: 

ID 

REACH 

NOVS 

XL 

SLOPE 

MR 

INRC 

LRC. 

OUTPUT:  Stores  the  travel  time  table  in  following  common 

variables : 

DP(20 ) 

SCFS(20) 

CC(20 ) 

VARIABLES  USED:  Variables  held  in  common  plus 

ID  storage  location  number 

REACH  reach  identification  number 

NOVS  number  of  valley  sections  in  the 

reach 

XL  length  of  reach 

SLOPE  Slope  of  reach 

MR  multiple  routing  invoked 

INRC  upstream  segment  rating  curve 

identification  number 

LRC  downstream  segment  rating  curve 

identification  number 

CONSTRAINTS:  A  maximum  of  20  points  are  allowed  to  define  a 

travel  time  table. 

A  maximum  of  6  valley  sections  are  permitted  in  a 
reach,  except  where  multiple  routing  reaches  are 
invoked  where  two  segment  section  must  be 
identified . 


CALLED  BY: 


MAIN 
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SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


NOTES:  If  multiple  routing  reaches  are  invoked,  a  compute 

travel  time  table  and  route  command  must  be  entered 
for  each  segment  routing  reach  (see  Chapter  2  of 
this  volume). 
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SUBROUTINE 

SYNOPSIS: 


COMMAND : 
INPUT: 


OUTPUT: 


VARIABLES 


NAME :  ROUTE 

A  hydrological  procedure. 

Routes  a  hydrograph  through  a  reach  using  the 
variable  storage  coefficient  method. 

If  multiple  routing  reaches  are  invoked,  routes  a 
hydrograph  through  a  segment  routing  reach. 

Also  calculates  inflow  hydrograph  for  segment  reach 
using  PERQ(20)  from  rating  curve. 

ROUTE 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

NHD 

IDH 

DT(ID) 

MR 

Details  of  the  hydrograph  to  be  routed  are  held  in 
common  variables  and  are  references  by  IDH. 

Details  of  the  inflow  segments  rating  curve  are 
held  in  common  variables  and  are  referenced  by: 

PERQ(20 ) 

TQ(20) 

C( 20 , INRC ) 

INRC. 

Stores  the  calculated  outflow  hydrograph,  its  peak 
discharge,  and  runoff  volume  in  common  variables: 

OCFS (300 , ID ) 

PEAK (ID) 

ROIN(ID) 

Proportional  discharge  for  each  time  increment 
value  (if  multiple  routing  reaches  are  invoked) 
written  to  output  file  'results'. 

DOCF(300,ID) 

USED:  Variables  held  in  common  plus 

ID  storage  location  number  of 

calculated  outflow  hydrograph 
NHD  hydrograph  identification  number  of 

outflow  hydrograph 
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CONSTRAINTS: 


CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 

NOTES: 


IDH 

storage  location  number  of  inflow 
hydrograph 

DT(ID) 

iteration  period  of  outflow 
hydrograph 

MR 

multiple  routing  invoked 

DOCFS 

dummy  discharge  area  to  prevent 
overwriting  of  inflow  array 

P 

percentage  of  inflow  in  multiple 
routing  reach  segment 

Discharges  included  in  the  inflow  hydrograph  must 
be  within  the  limits  of  the  travel  time  table, 
otherwise  there  is  no  way  to  define  the  travel  time 
coefficient*  If  the  solution  to  the  routing 
equations  fails  to  converge  after  10  iterations, 
convergence  is  forced. 

If  multiple  routing  reaches  are  invoked  the  inflow 
hydrograph  must  not  exceed  the  rating  curve  used  to 
compute  proportional  inflow  in  segment. 

MAIN 


If  multiple  routing  reaches  are  invoked,  a  compute 
travel  time  table  and  route  command  must  be  entered 
for  each  segment  routing  reach.  Also  l  .e 
identification  number  of  the  inflow  and  outflow 
hydrographs  must  not  be  the  same  (see  Chapter  2  of 
this  volume). 


Ill 


Chapter  3 
SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND: 

INPUT: 


OUTPUT: 

VARIABLES  USED: 


CONSTRAINTS: 


RESVO 


A  hydrological  procedure. 

Routes  hydrograph  through  a  reservoir. 

ROUTE  RESERVOIR 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

NHD 

IDH 

SCFS(20 ) 

STORE 

Details  of  the  inflow  hydrograph  are  held  in  common 
vriables  and  are  referenced  by  ID: 

DT(ID) 

DA(ID) 

The  calculated  outflow  hydrograph,  peak  discharge, 
and  runoff  volume  is  stored  in  common  variables: 

OCFS(300,ID) 

PEAK (ID) 

ROIN(ID) 


Variables  held  in  common  plus 


ID 

NHD 

IDH 

SCFS (20 ) 

STORE 


storage  location  number  of 
calculated  outflow  hydrograph 
hydrograph  identification  number  of 
outflow  hydrograph 
storage  location  number  of  inflow 
hydrograph 

discharge  values  of  the  storage 
discharge  relationship  defined  for 
the  reservoir 

storage  values  of  the  storage 
discharge  relationship  defined  from 
the  reservoir 


The  discharge  of  the  inflow  hydrograph  must  be 
within  the  storage  discharge  relationship  defined 
from  the  reservoir.  A  maximum  of  20  points  are 
allowed  to  define  this  relationhip. 
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CALLED  BY: 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 


NOTES: 


MAIN 
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SUBROUTINE  NAME: 
SYNOPSIS: 

COMMAND : 

INPUT: 


OUTPUT: 


VARIABLES  USED: 


ERROR 

Model  control  procedure. 

Calculates  a  number  of  indices  or  objective 
functions  which  detail  the  degree  of  fit  between 
two  hydrographs. 

ERROR 

The  data  input  for  this  command  has  been  read  into 
DATA(310)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID  1 
ID2 

Details  of  the  2  hydrographs  are  held  in  common 
variables  and  are  referenced  by  ID1  and  ID2 

The  values  of  MILHY’s  original  error  statistics 
plus  an  additional  13  objective  functions  are 
written  to  output  file  'results'. 

ESDEV 

PCTER 

OF  1 

0F2 

OF  3 

0F4 

0F5 

0F6 

0F7 

0F8 

0F9 

OF  10 

OF  1 1 


Variables  in  common  plus 

IDI  storage  location  number  of  first 

hydrograph  (usually  assumed  to  be 
measured) 

ID2  storage  location  number  of  second 

hydrograph  (usually  assumed  to  be 
calculated) 

ERR  error  (measured  -  calculated 

discharge) 

ESDEV  error  standard  deviation 

PCTER  percentage  peak  discharge  error 
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OF  1 

absolute 

sum  of 

errors 

0F2 

ordinary 

least 

squares 

0F3 

log  of  ordinary 

least  squares 

0F4 

relative 

sura  of 

errors 

OF  5 

absolute 

error 

difference 

0F6 

relative 

error 

difference 

0F7 

absolute 

error 

divided  by 

variance 

0F8 

relative 

error 

divided  by 

variance 

0F9 

absolute 

error 

difference 

divided 

by  variance 

OFIO 

relative 

error 

difference 

divided 

by  variance 

OF  1 1 

Pearsons 

correlation  coefficient 

CONSTRAINTS:  The  first  hydrograph  ( ID  I )  is  taken  to  be  the 

measured.  All  indices  are  printed  out  in  file 
'results'  in  metric  units. 

CALLED  BY:  MAIN 

SUBROUTINES 

CALLED: 

FUNCTIONS  CALLED: 


NOTES : 
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SUBROUTINE  NAME:  SEDT 


SYNOPSIS: 


COMMAND: 

INPUT: 


OUTPUT: 


A  hydrological  procedure. 

Computes  sediment  yield  for  a  field  using  the 
Universal  soil  loss  equation. 

SEDIMENT  YIELD 

The  data  input  for  this  command  has  been  read  into 
DATA(JIO)  by  HONDO  and  is  transferred  from  this 
array  into  the  following  variables  which  are  used 
in  this  subroutine: 

ID 

SOIL 

CROP 

CP 

SL 

Details  of  the  hydrograph  are  held  in  common 
variables  and  are  referenced  by  ID: 

ROIN(ID) 

DA(ID) 

PEAK(ID) 

Writes  out  the  sediment  yield  to  the  output  file 
' results ' : 


SED 

VARIABLES  USED:  Variables  held  in  common  plus 


ID 

storage  location  number  of 
hydrographs 

SOIL 

soil  erodibility  factor 

CROP 

the  cropping  management  factor 

CP 

The  erosion  control  practice  factor 

SL 

the  slope  length  and  gradient  factor 

CONSTRAINTS : 

CALLED  BY: 

MAIN 

SUBROUTINES 

CALLED: 

FUNCTIONS 

CALLED: 

NOTES : 
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FUNCTION  NAME: 
SYNOPSIS: 

INPUT: 

OUTPUT: 

VARIABLES  USED: 

CONSTRAINTS: 
CALLED  BY: 


GIT  (TCARD ,  J,  JLAST,  SHIFT). 

Converts  alphabetic  array  to  floating  point  number. 

TCARD(IO) 

J 

JLAST 

SHIFT 

A( 10)  CONVERTS  TO  NUMBERS 

GIT 

TCARD 

J 

JLAST 
SHIFT 
A(  10) 


HONDO 
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FUNCTION  NAME: 

RMAX(X.NQ) 

SYNOPSIS: 

Returns  the 

maximum 

element  in  a  REAL  array. 

INPUT: 

X(NQ) 

X  is 

a  REAL  array  of  size  NQ 

OUTPUT: 

RMAX 

VARIABLES  USED: 

X(NQ ) 

RMAX 

CONSTRAINTS: 

CALLED  BY: 

SOILM 

FUNCTION  NAME: 

RMIN(X,NQ ) 

SYNOPSIS: 

Returns  the 

minimum 

element  in  a 

REAL  array. 

INPUT: 

X  (NQ  ) 

X  is 

a  REAL  array 

of  size  NQ 

OUTPUT: 

RMAX 

VARIABLES  USED: 

X(NQ  ) 

RMAX 

CONSTRAINTS: 

CALLED  BY: 

SOILM 

NOTES : 
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SUBROUTINE  NAME:  BLOCK  DATA 

SYNOPSIS:  Initializes  certain  variables.  These  variables  are 

used  to  determine  the  number  of  commands,  the 
command,  the  command  number,  the  maximum  number  of 
data  entries  which  are  associated  with  the  command, 
and  the  data  which  is  entered  in  the  variable 
format  data  entry  area. 

INPUT: 

OUTPUT:  Initialized  arrays: 

ZALFA(20) 

CTBLE(50, 11 ) 

ITBLE (50,2) 

NCOMM 

VARIABLES  USED:  ZALFA(20)  alphanumeric  code  table  containing: 

1234367890  *., -(filled  with  blanks) 

CTBLE(50,11)  command  table  containing: 

START  (filled  with  blanks) 

STORE  HYD 
COMPUTE  HYD 
PRINT  HYD 
PLOT  HYD 
ADD  HYD 

STORE  RATING  CURVE 
COMPUTE  RATING  CURVE 
STORE  TRAVEL  TIME 
COMPUTE  TRAVEL  TIME 
ROUTE 

ROUTE  RESERVOIR 
ERROR  ANALYSIS 
SEDIMENT  YIELD 
FINISH 

(filled  with  blanks) 
integer  table  containing: 

1  4 

2  305 

3  310 

4  4 

5  2 

6  4 

7  62 

8  310 


ITBLE(50,2 ) 
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9  45 

10  8 

11  5 

12  4 

13  2 

14  5 

15  0 

NCOMM  number  of  commands  contains 

15 


CONSTRAINTS: 

CALLED  BY: 
SUBROUTINES  CALLED: 
FUNCTIONS  CALLED: 


NOTES: 
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3.4  Infiltration  Algorithm 

The  basic  structure  of  the  computer  implementation  of  the 
infiltration  model  is  illustrated  in  figure  3.1.  It  has  been  written 
in  Fortran  77  so  as  to  be  compatible  with  MILHY. 

This  document  provides  more  details  of  the  subroutines  SOILM, 
HYDCON,  TWO,  GRAD,  and  SMCURV,  which  are  included  in  the  listing  of 
MILHY3.  Together  these  subroutines  comprise  the  code  for  the 
physically  based  infiltration  model. 

Substantial  comments  exist  within  the  computer  code. 

The  subroutine  SOILM  is  divided  into  three  parts,  an  initial, 
dynamic,  and  terminal  section.  Each  of  these  will  be  discussed  in 
turn.  However,  primarily,  three  series  of  operations  are  undertaken: 

1  SOILM  comprises  firstly,  a  series  of  declaration  statements 
including  DIMENSION  and  variable  type  statements. 

2  The  first  four  lines  of  the  data  file  'data2'  (unit  number  25) 
are  then  read  into  the  program.  These  lines  include  the 
variables  which  control  the  soil  moisture  simulation,  such  as 
the  simulation  start  time  (TIME),  storm  start  time  (ALR),  storm 
stop  time  (AMR),  simulation  duration  (SIMDUR) ,  a  variable  which 
indicates  the  amount  of  output  required  (I0UT),  simulation 
iteration  time  (AF),  write-out  interval  (WT),  and  the  number  of 
soil  columns  in  the  particular  subcatchment  (NSCOLS). 

3  The  real  array  CUMRAIN(251)  which  has  been  passed  from  CMPHYD 
is  then  transformed  from  cumulative  precipitation  totals  (in 
inches)  at  equal  time  intervals  (DT),  into  precipitation  totals 
(in  mm)  for  each  time  increment: 


Declaration  and  dimenalon 
atatamenta 


122 


Chapter  3 


IRR=IR+1 
DO  100  1=1, IRR 

100  PPT(I )=(CUMRAIN(I+1 )-CUMRAIN(I ) )*0 . 0254 


3.4.1  Initial  section 


1  Read  in  data. 

The  data  relating  to  a  single  soil  column  are  read  into  the 
program.  All  of  the  details  to  operate  the  stochastic  version 
of  the  model  are  also  read  in  at  this  stage.  If  the 
deterministic  version  of  the  infiltration  model  is  required, 
then  enter  all  standard  deviations  as  zero. 

2  If  the  storm  start  and  stop  have  been  entered  as  12  hour  clock 
rather  than  24  hour  clock,  it  is  possible  that  the  storm  may 
start  before  it  stops;  the  following  calculation  prevents 
this.  Assume  that  times  entered  in  'data2'  are  correct: 

I F ( AMR . LT . ALR )THEN 
AMR=AMR+24 
ENDIF 

3  Check  data  inputs. 

A  series  of  checks  are  performed  on  the  data  which  has  just 
been  read  in.  When  an  error  occurs,  the  value  of  NERROR  is 
increased  by  one  and  the  checks  continue.  At  the  end  of  this 
section  of  the  code,  if  NERROR  exceeds  0,  then  the  program 
stops.  This  allows  all  of  the  data  for  the  soil  column  to  be 
checked  during  one  run  of  the  program. 

Details  of  the  checks  which  are  performed  are  well  documented 
in  the  code. 
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4.  DEPTH  calculation. 

DEPTH  the  distance  from  the  ground  level  to  the  midpoint 

of  each  cell  in  the  soil  column. 

DIST  the  distance  between  the  midpoints  of  any  two 

adjacent  cells 

TC0M(20)  thickness  of  each  cell  (input  in  'data2') 


5.  Parameter  variability  calculations 
The  five  input  variables: 


DETCAP 
THETA( 20 ) 
SR 

SATCON 
X(20 ) 


detention  capacity 

soil  moisture  content  of  each  cell 

saturated  soil  moisture  content  of  each  layer 

saturated  hydraulic  conductivity  of  each  layer 

moisture  content  of  each  point  on  the  soil 

moisture  characteristic  curve 


are  all  varied  stochastically.  The  NAG  function  G05DDF  is 
called  which  returns  a  randomly  selected  variable  from  a  normal 
distribution  according  to  a  given  mean  and  standard  deviation. 

This  section  of  the  code  generates  one  set  of  randomly 
distributed  variables  and  the  simulation  continues  using  these 
values.  To  represent  variability  in  the  hydrograph  response, 
however,  this  random  selection  and  the  use  of  these  generated 
values  must  be  repeated  many  times. 

A  series  of  checks  are  performed  on  randomly  generated  values 
to  ensure  physical  realism. 
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DETCAP 


DETCAP=G05DDF(ADETCAP ,SDETCAP ) 


IF ( DETCAP. LT.O. )DETCAP=0 


SD=SDETCAP 
WRITEC6, 1180)SD 
1180  FORMAT  (’. 

SR 


Call  NAG  routine.  ADETCAP 
is  a  DOUBLE  PRECISION  mean 
value  of  detention  capacity. 
Therefore,  DETCAP  is  the 
randomly  generated  value  of 
detention  capacity  which  will 
be  used  in  this  simulation. 

If  the  randomly  generated 
value  is  less  than  zero,  then 
set  it  to  zero,  as  zero  is  a 
physically  impossible  value 
for  this  variable 

The  details  are  written  out  to 
the  output  file  'results'. 


The  procedure  for  this  variable  is  as  for  DETCAP. 
X(20) 


The  generation  of  the  stochastic  soil  moisture  curve  is 
achieved  by  calling  subroutine  SMCURV.  In  this  subroutine, 
firstly,  arrays  are  dimensioned,  and  variables  declared. 

X(i)=G05DDF(AX(l),SCURV)  The  first  moisture  value  on 

the  curve  (the  driest  point) 
is  first  used  to  generate  its 
random  value. 
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IF(X( 1 ) .LT.O. )X(1  )=0.001  Random  value  prevented  from 

being  zero  or  negative. 

For  the  remaining  moisture 
values,  generate  random  values 
The  soil  moisture  curve  is 
prevented  from  assuming  a 
reverse  gradient 

1 F ( X C NQ ) . GE . SR )SR=X(NQ )+Q. 00 1  The  wettest  point  of  the  soil 

moisture  curve  is  prevented 
from  assuming  a  value  greater 
than  the  saturated  soil 
moisture  content  determined 
for  that  layer 

The  gradients  ( G ( 20 ) )  of  this  new  soil  moisture  characteristic 
curve  are  then  calculated. 

The  maximum  and  minimum  moisture  values  of  the  curve  are  then 
calculated  by  referencing  the  functions  RMAX  and  RMIN.  The 
size  of  equal  intervals  in  the  moisture  values  are  thus 
determined . 

The  new  values  of  moisture  and  suction  (at  equal  moisture 
intervals)  are  then  evaluated  XNEW(20)  and  YNEW(20).  These  are 
passed  back  to  SOILM,  where  they  are  read  into  arrays  X(20)  and 
Y(20) . 

This  procedure  is  repeated  for  each  soil  moisture 
characteristic  curve  (maximum  3). 


DO  100  1=2, NQ 

X(I)  =  G05DDF( AX(I ) , SCURV ) 
100  1F(X(I).LE.X(I-1)) 

X(I)=X(I-1)+0.001 
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SATCON 

The  procedure  for  generating  random  values  for  SATCON  is 
similar  to  DETCAP ,  except  that  the  DOUBLE  PRECISION  mean  values 
for  SATCON  and  logged  as  SATCOM,  are  assumed  to  have  a  log¬ 
normal  distribution. 

THETA(20) 

The  procedure  for  generating  random  values  for  initial  moisture 
is  the  same  as  for  DETCAP.  More  checks  on  the  randomly 
generated  values  are  performed. 

For  the  cells  in  each  layer 

1  -  NLA  in  layer  1 

NLAA  -  NLH  in  layer  2  (NLAA=NLA+1 ) 

NLBB  -  NL  in  layer  3  (NLBB=NLH+1 ) 

The  initial  moisture  content  is  not  permitted  to  exceed  those 
moisture  values  in  the  soil  moisture  characteristic  curve. 

6.  The  unsaturated  hydraulic  conductivity  function  is  derived  from 
the  soil  moisture  characteristic  curve  using  the  Millington  and 
Quirk  equation.  This  calculation  is  carried  out  in  subroutine 
HYDCON,  which  is  called  for  each  soil  layer.  HYDCON  is  a 
straight  translation  of  the  Millington  and  Quirk  equation. 

7.  The  initial  conditions  are  written  out  to  data  file  'results'. 
The  following  information  is  displayed: 

(a)  The  moisture,  suction  and  unsaturated  hydraulic 
conductivity  values. 


(b)  The  start  conditions  TIME,  ALR,  AMR,  DT,  AF ,  EMAX,  DETCAP 


The  initial  relative  saturation  for  each  cell  is  calculated  as 
the  initial  moisture  content  divided  by  the  saturated  soil 
moisture  content  for  the  layer. 


(c)  The  initial 
column. 

Certain  variables 

WDATA( 300 , 10 ) 


WAT  I 

ANFLUX(20 ) 

CTIME 

SRAINI 

CUMDRN 

CINFIL 

SUMD 

ICOUNT 

EVAPI 

SOG 

RTOT 

ANFILT 

PPTT 

TG 


soil  conditions  for  each  cell  in  the  soil 


are  initialised: 

a  real  array  which  contains  the  runoff 

produced  by  each  soil  column  (up  to  10 

is  permitted)  and  which  is  weighted  by 

the  percentage  area  which  the  soil  type 

occupies  in  the  subcatchment 

initial  water  content  of  soil  column  -  a 

variable  used  in  the  water  balance  check 

net  flux  of  soil  water  between  two 

adjacent  cells 

current  time  in  seconds 

variable  used  to  calculate  rainfall 

excess 

cumulative  drainage  out  of  the  bottom 

cell  in  the  soil  column 

cumulative  infiltration 

rainfall  excess 

integer  count 

cumulative  evaporation 

relative  saturation  of  cell  1 

runoff  total 

infiltration  into  cell  1 

cumulative  precipitation 

the  length  of  time  (in  seconds)  since  the 
simulation  began 
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9.  A  calculation  is  performed  to  determine  the  initial  soil 
moisture  content  of  the  soil  column  (WATI).  This  is  used  as  a 
check  on  the  numerical  stability  of  the  solution  of  the 
Richards  equation. 

10.  The  gradients  of  the  soil  moisture  characteristic  curve  (G(20)) 
and  the  hydraulic  conductivity  function  (GZ(20))  are  calculated 
by  calling  subroutine  GRAD.  This  subroutine  is  called  for  each 
layer  in  turn. 


3.4.2  Dynamic  section 

This  comprises  a  series  of  operations  located  in  loop  number 
9995,  which  are  performed  repeatedly  at  each  time  step.  This  time 
interval  is  specified  in  'data2*  by  the  value  of  variable  AF . 

1  ITMAX  the  number  of  iterations  which  are  required 

(SIMDUR  is  input  in  hours  and  therefore  must  be 
converted  to  seconds.  AF  is  in  seconds). 

2  Loop  number  9995  is  the  major  loop  in  this  simulation.  An 
internal  clock  is  set  and  updated  as  the  simulation  proceeds. 

3  Calculate  water  volume  of  each  cell 

Loop  number  300  determines  the  volume  of  each  cell  by 
multiplying  soil  moisture  content  by  cell  thickness. 

For  each  cell,  the  moisture  content  is  known  from  the  initial 
conditions  provided  by  the  user,  or  from  the  calculations 
performed  in  the  previous  time  interval. 
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4  24-hour  clock 

The  real  time  for  the  current  iteration  period  is  calculated. 
CTIME  was  initialised  in  the  initial  section,  in  point  number  8 
above . 

5  Calculation  of  soil  water  pressure,  conductivity,  and  hydraulic 
potential  for  each  cell. 

These  variables  are  calculated  by  calling  subroutine  TWO.  This 
subroutine  is  called  three  times,  once  for  each  layer  in  the 
soil  column: 

1  -  NLA  cells  in  layer  1 

NLAA  -  NLH  cells  in  layer  2 

NLBB  -  NL  cells  in  layer  3 

Firstly,  the  soil  water  pressure  (SWP(20))  which  corresponds  to 
the  moisture  content  (THETA(20))  of  each  cell  is  derived  from  a 
linear  interpolation  procedure  from  the  known  points  on  the 
moisture  characteristic  relation. 

Secondly,  unsaturated  hydraulic  conductivity  (C0ND(20))  is 
derived  by  similar  means  from  the  hydraulic  conductivity 
function. 

Thirdly,  the  hydraulic  potential  of  each  cell  (HPOT(20))  is 
given  by  the  following  equation: 

HPOT(I)  =  SWP(I)  -  DEPTH(I) 

where  DEPTH(I)  represents  the  depth  from  the  surface  to  the 
midpoint  of  each  cell. 
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6.  Determine  rainfall 

Rainfall  for  the  current  time  step  is  derived  from  the  rainfall 

data  input. 

Tl=T*AF/3600.0  T1  is  the  time  in  hours  when  the  current 

iteration  period  ends 

IF(T1.LE.(ALR-TIME). OR. T1.GT.( AMR-TIME ))THEN 

A  check  that  the  end  of  the  current 
iteration  period  occurs  during  the  storm 
period.  Note  that  the  simulation  start 
(TIME)  may  be  defined  as  some  period  of 
time  before  the  storm  starts  (ALR  and 
that  the  simulation  duration  (SIMDUR) 
may  be  longer  than  the  storm  period 
(AMR-ALR) . 

SRAIN=0.0.  If  Ti  is  outside  storm  period  then  there 

is  obviously  no  rain. 


ELSE 


If  Tl  is  within  storm  period. 


T2=Tl(AF/3600.0) 

IELEM=( (T2- (ALR -TIME ) ) /DT)+1  IELEM  the  element  in  the 

array  PPT  which 
corresponds  to  Tl 

SRAIN=PPT ( IELEM) / )DT*3600.0)  SRAIN  the  precipitation 

(per  second)  which 
occurs  in  this 
iteration  period 


ENDIF 


131 


Chapter  3 

PPTT=PPTT+(SRAIN*AF )  PPTT  cumulative  precipitation 

(initialised  in  initial  section,  point  8 
above) 

7  Average  conductivity  of  each  cell 

The  average  conductivity  determines  the  rate  of  flow  between 
adjacent  cells.  Loop  number  210  determines  this  property 
(AVCOND(I),  where  1=2, NL.  AVCOND(I)  is  given  ‘-v  the  following 
relation 

AVCOND (I )=( COND ) I - 1 ) *TC0M ( I - 1 )+C0ND (I )*TC0M(I ) ) / 
(TC0M(I-1 )+T0M(I ) ) 


where : 

COND(I)  hydraulic  conductivity  of  each  cell 

TCOM(I)  thickness  of  each  cell 

8  Bottom  boundary  condition 

The  flux  out  of  the  bottom  cell  (FLUX(NLL))  is  assumed  to  be 
equal  to  the  hydraulic  conductivity  of  that  cell  (COND(NL)), 
although  other  bottom  boundary  conditions  could  be  specified. 

Note:  NLL=NL+1  initialised  after  the  READ  statements  near  to 

the  beginning  of  this  subroutine. 

9  Flux  between  cells 

The  flux  into  each  cell,  except  for  the  surface  cell,  is  given 
by  Darcy's  law,  which  in  discrete  form  and  for  the  flux  from 
cell  (1-1)  into  cell  (I)  becomes: 


FLUX (I )=(HP0T(I-1 )-HP0T ( 1 ) )*AVC0ND( I )/DIST(T) 


132 


Chapter  3 

10  Top  boundary  condition 

The  determination  of  the  flux  into  the  top  cell  is  crucial  for 
this  application. 


For  each  iteration  period,  the  following  variables  are 
calculated : 


BNCAP 

SUMD 

DETAIN 

EVAP 

ANFILT 

RUNOFF 

RTOT 


infiltration  capacity 

precipitation  excess 

the  amount  detailed  on  the  surface 

evaporation  rate 

infiltration  rate  into  cell  1 

runoff  in  the  iteration  period 

cumulative  runoff  total 


The  structure  of  this  section  of  SOILM  is  illustrated  in  figure 

3.2. 


Firstly,  the  infiltration  capacity  is  calculated.  This  depends 
on  the  characteristics  of  cell  1.  BNCAP  is  the  Darcian  flux 
into  the  middle  of  the  first  cell  from  a  saturated  soil  surface 
at  which  the  pressure  potential  is  assigned  a  value  of  zero: 

BNCAP= (0 . 0-HP0T ( 1 ) ) *0 . 5*( SATCON+COND ( 1 ) ) /DIST ( 1 ) 

Secondly,  the  precipitation  excess  (SUMD)  is  then  calculated 
and  cumulated  throughout  the  simulation  duration. 

If  SUMD  is  positive,  it  represents  excess  water  which  is 
detained  on  the  surface  (DETAIN). 

The  next  section  considers  rainfall: 


If  it  is  raining:  Evaporation  (EVAP)  is  set  to  zero. 
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Figure  3.2 

Determination  of  Top  Boundary  Conditions 
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Figure  3.2  (cont.) 

Determination  of  Top  Boundary  Conditions 
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Provided  that  the  rainfall  rate  for  the 
current  iteration  period  (SRAIN)  is 
smaller  than  the  infiltration  capacity 
(BNCAP),  and  there  is  no  surface 
detention  (DETAIN=0),  the  flux  into  cell 
1  (ANFILT)  equals  the  rainfall  rate 
(SRAIN).  If  these  conditions  are  not 
met,  then  the  flux  (ANFILT)  equals  the 
infiltration  capacity  (BNCAP). 

If  there  is  surface  detention  (DETAIN), 
and  this  exceeds  the  detention  capacity 
(DETCAP),  and  the  rainfall  rate  (SRAIN) 
exceeds  the  infiltration  capacity  (BNCAP) 
then  runoff  occurs  (RUNOFF). 

If  it  is  not  raining:  Runoff  is  set  to  zero. 

The  evaporation  rate  (EVAP)  is  derived  from 
a  simple  isothermal  relation 

If  there  is  no  water  detailed  on  the  surface 
(DETAIN),  then  water  may  move  out  of  cell  1 
at  a  rate  equal  to  the  evaporation  rate.  If 
there  is  water  remaining  on  the  surface 
from  the  storm,  water  moves  into  cell  1  at  a 
rate  equal  to  the  infiltration  capacity. 

The  evaporation  and  infiltration  which 
occurred  during  the  iteration  period  are 
then  deducted  from  the  surface  detention 
(DETAIN). 


11  Changes  in  soil  moisture  content 


When  the  fluxes  (FLUX(20))  nave  been  tie  Let  mi  ned ,  the  moisture 
content  of  each  cell  is  recalculated  in  consideration  of  these 
fluxes.  The  net  change  in  the  moisture  content  of  each  cell  is 
given  by  ANFL,UX(20) ) : 

ANFLUX(I)=FLUX(I)-FLUX(I+1 ) 

The  new  moisture  content  is  thus  given  as: 

THETA ( I )=(VOL(I )+ANFLUX(I ) )/TCOM(I ) 

During  recalculation  of  new  moisture  contents,  it  is  possible 
that  the  newly  calculated  THETA(20)  may  exceed  the  saturated 
soil  moisture  content  for  the  cell,  therefore  a  series  of 
checks  are  performed  to  ensure  that  THETA(20)  does  not  exceed 
SR,  and  that  the  associated  soil  water  pressure  SWP(20)  is  also 
set  to  zero  (saturation). 

12  Cumulative  totals. 

Updates  are  then  provided  for: 

CUMDRN  cumulative  drainage 

EVAPI  cumulative  evaporation 

CINFIL  cumulative  infiltration 

SOG  relative  saturation  of  cell  1 

3.4.3  Terminal  section 

In  this  section,  a  write  out  of  current  conditions  of  each 
cell  in  the  soil  column,  the  precipitation,  and  any  surface  storage, 
runoff  or  evaporation  which  may  have  occurred  is  performed. 
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1  The  program  checks  the  time  on  its  internal  clock  against  the 
time  interval  for  wnich  a  printed  copy  of  the  soil  column 
conditions  is  required  (this  will  normally  equal  uiie  Lime 
interval  of  rainfall  data).  If  the  two  do  not  agree,  the 
program  moves  to  statement  number  9995,  and  returns  to  the 
beginning  of  the  dynamic  section.  If  they  do  agree,  then  the 
program  proceeds  to  the  terminal  section. 

2  T  the  current  time.  This  is  written  out  to  file  unit  number 
6 ,  ' results ' . 

3  If  IOUT  (defined  in  'data2')  is  zero,  then  only  a  limited 
amount  of  written  output  data  is  required,  and  the  program 
moves  to  statement  number  305  where  the  water  balance 
calculation  is  undertaken  and  details  written  to  'results'.  If 
IOUT  does  not  equal  0,  then  the  full  details  are  required. 

4  Write-out  conditions  of  the  soil  column. 

The  conditions  of  each  cell  in  the  soil  column  are  written  out 
at  time  T. 

5  Water  balance  check. 

The  water  content  of  the  soil  column  is  recalculated  and 
BAL  is  calculated. 

6  If  IOUT  equals  zero,  then  again,  the  program  moves  to  statement 
number  305,  where  the  details  of  runoff  are  written  to 
'results' . 

7  The  cumulative  totals  of  EVAPI,  PPTT,  CINFIL,  CUMDRN  are 
written  to  'results'. 

8  Details  of  the  runoff  and  water  detained  on  the  surface  are 
written  to  'results'. 

Creation  of  array  containing  runoff  data. 
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WDATA(300,  10)  contains  the  runoff  which  is  converted  into 
inches  for  passing  back  to  CMPHYD,  which  has  been  derived  for 
each  soil  column  in  the  subcatchment  (maximum  of  10),  and  which 
has  been  weighted  according  to  the  percentage  area  which  that 
soil  column  occupies: 

WDATA(MMM.W)  =  (RTOT/ . 02 54 ) * (IPCAREA/ 1 00. 0 ) 

MMM  the  MMMth  runoff  value 

W  the  Wth  soil  column 

RTOT  the  runoff  which  occurred  in  the  period 

IPCAREA  the  percentage  area  which  the  soil  column  occupies 

10  34543  CONTINUE 

This  marks  the  end  of  the  simulation  for  one  soil  column.  If 
there  is  another,  then  the  subroutine  is  repeated  from  the 
place  where  the  soil  information  is  read  in  from  'data2'. 

If  there  are  no  further  soil  columns,  the  subroutine  proceeds 
out  of  loop  number  34543. ' 

The  final  operation  in  this  subroutine  is  to  sum  the  weighted 
runoff  contained  in  WDATA(300, 10)  to  derive  the  total  runoff  to 
be  passed  back  to  CYMPHD.  Loop  76567  undertakes  this 
calculation,  and  the  runoff  data  is  finally  stored  in 
DATA( 300) . 

IR  is  returned  to  CMPHYD  as  the  number  of  elements  in  the  array 
DATA(300) . 
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MILHY3  :  P.C.  Version 


A.l  Introduction 


This  chapter  summarizes  the  main  program  changes  necessary  to 
run  MILHY3  at  the  P.C.  level.  MILHY3  will  run  on  an  IBM-AT,  or 
similar.  The  main  changes  required  are  related  to  the  provision  of 
a  random  number  generator  for  the  stochastic  version  and  the 
conversion  of  mixed  numeric  and  character  arrays. 

4.2  Random  Number  Generator 


MILHY3  calls  a  library  routine  g05ddf,  part  of  the  NAG  library 
to  generate  random  values  within  a  distribution  determined  from  the 
mean  and  standard  deviation  entered  in  the  'data2'  data  set.  These 
values  are  used  to  analyse  the  error  band  in  the  predicted  runoff 
hydrograph,  usually  associated  with  field  or  instrument 
inaccuracies.  The  routine  g05ddf  calls  in  turn  a  routine  g05caf 
which  is  machine  specific. 

If  the  stochastic  version  is  not  required,  then  CALL 
statements  to  the  library  may  be  simply  commented  out.  The  CALL 
statements  are  located  in  the  SOILM  subroutine.  If  the  stochastic 
capability  is  to  be  retained,  then  another  random  number  generator 
must  be  provided. 

4.3  Character/Numeric  Arrays 

MILHY  was  originally  written  in  FORTRAN  66,  utilizing  mixed 
character  and  numeric  arrays.  This  ability  was  used  in  the  'datal' 
data  set,  where  numeric  and  character  fields  are  read  together.  At 
the  PC-level,  the  character  and  numeric  arrays  must  be  separated. 
This  is  achieved  using  the  least  changes  possible  to  the 
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program  code  and,  therefore,  is  not  necessarily  the  most  efficient 
method. 

A  new  common  block  /BL0CK4/  is  introduced  in  routines 
BLKDTA,  MAIN,  HONDO  and  GIT  and  new  CHARACTER  arrays  are 
dimensioned.  In  BLKDTA  the  variables  ZALPHA  and  CTBLE  are  redefined 
using  three  new  variables  ZALPHA2,  CTBLE1  and  CTBLE2.  In  HONDO, 
these  changes  are  pursued  with  changes  to  the  READ  and  WRITE 
statements.  In  HPLOT,  the  CHARACTER  arrays  are  dimensioned  and  MAX 
is  updated  for  a  narrower  printer.  A  copy  of  the  IBM  version  of 
these  routines  is  now  included. 
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c 

MAIN 

C 

C 

COWON/ BLOCK  1  /CTBLEC  50 ,  11 ) ,  ITBLEC  50 ,2) ,  ZALPHA(  20) , 
&MAXNO ,  NCODE ,  ICC ,  NCOt*! 

C 

COW0N/BL0CX2/0CFS(300 , 6 )  .DATA (3 10 )  ,RAIN(300)  ,ROIN£6) , 
&IEND(6) , DA(6) , DT(6) , PEAKC6) , TIME.KCODE , ICODE 
C 

COM*)N/BLOCK3/A(20.70),Q(20,70) , DEEP(20 , 70 ) , DP(20 ) . 
&SCFS(20 ) , C(20 , 6 ' ,DIST(6) , SEGN(6 ) , ISG(6 ) , FERQ(20 , 70 ) , 
&TQC20 , 6) ,CC(20 ) , LL( 6 ) , INRC , LRC 
C 

COMMON/ BLOCKS /2ALPH2( 20 ) ,CTBL1 ( 50,2} ,CTBL2(50,9) 
CHARACTER* 1  ZALPH2.CTBL1 
CHARACTER*2  CTBL2 

C 

OPEN  (1, STATUS- 'OLD' , FILE- ’ datal ’ ) 

OPEN (25, STATUS- 'OLD' ,FILE-’data2’ ) 

OPEN (6, STATUS- 'NEW' , FILE” ’ results ' ) 

NCODE-O 

ICC-0 

1  NER-0 
CALL  HONDO 

IF  (NER)  2,2,17 

2  GO  TO  (3,4,5,6,7,8,9,10,11,12,13,14,15,16,17),  NCODE 

3  TIME-DATA ( 1 ) 

KCODE-DATA(2) 

ICODE-DATA(3) 

GO  TO  1 

4  CALL  STHYD 

GO  TO  1 

5  CALL  CMPHYD 

GO  TO  1 

6  CALL  PRTHYD 

GO  TO  1 

7  CALL  HPLOT 

GO  TO  1 

8  CALL  ADHYD 

GO  TO  1 

9  CALL  SRC 

GO  TO  1 

10  CALL  CMPRC 
GO  TO  1 

1 1  CALL  STT 

GO  TO  1 

12  CALL  CMPTT 

GO  TO  1 

13  CALL  ROUTE 

GO  TO  1 

14  CALL  RES  VO 

GO  TO  1 

15  CALL  ERROR 

GO  TO  1 

16  CALL  SEDT 
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17 


GO  TO  1 

STOP 

END 
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c 

c 

c 

SUBROUTINE  HONDO 
C 

c 

C  This  subroutine  reads  in  the  data  from  'datal',  searches  ar.  alphanurr.  ric 
C  code  table  to  determine  the  NCODE  of  the  required  operation,  and  collects 
C  variables  from  the  freef loating  data  field. 

C 

C  The  command  table  (CTBLE),  integer  table  (ITBLE),  number  of  commands 
C  (NCOMM)  and  alphanumeric  array  (ZALPHA)  are  initialized  in  BLOCK  DATA 
C  located  at  the  end  of  this  listing. 

C 

C 

COMMON/BLOCK1 /CTBLE ( 50 , 1 1 ) , ITBLE ( 50 , 2 ) , ZALPHAt 20 ) , 

&MAXNO , NCODE , ICC , NCOMM 
C 

COMMON /BL0CK2/0CFSC  300 , 6 ) , DATA ( 310 ) , RAIN (300 ) , ROIN( 6 ) , 

&IEND ( 6 ) , DA( 6 ) . DT ( 6 '  PEAK ( 6 ) , TIME , KCODE , ICODE 
C 

COMMON /BLOCK 4 / ZALPH2 ( 20 , CTBL 1(50,2), CTBL2 (50,9) 

CHARACTER* 1  ZALPH2 , CTBL 1 , CHAR( 60 ) , ALPHA1 ( 2 ) , AUXAt 10 ) , AUXB ( 10 ) 
CHARACTER*2  CTBL2 , ALPHA2 ( 9 ) 

C 

IF  (ICC)  1,1,3 
C  READ  IN  DATA  CARD 

1  READ  < 1 , AZ )  ( ALPHA 1 (I), 1*1, 2), ( ALPHA2( I ) , 1*1,9) , (CHAR( I ) , 1*1 , 60 ) 

C  IF  FIRST  CHARACTER  IS  BLANK  THE  CARD  IS  A  CONTINUATION  OF 

C  PREVIOUS  CARD. 

IF  ( ALPHA 1 ( 1 )  -ZALPH2( 11 ) )  2,9,2 

2  IF  (ICC)  3, 3, A0 

C  ASTERISK  IN  COL.  80  MEANS  SKIP  TO  NEW  PAGE  BEFORE  PRINTING  CARD 

3  IF  (CHAR(60)-ZALPH2(11))  A, 5, A 

A  WRITE  (6, A3) 

5  WRITE  (6.AA)  ( ALPHA 1 (I), 1*1, 2), ( ALPHA2 ( I ) , 1*1 , 9) , (CHAR( I ) , I-l , 60 ) 

C  IF  FIRST  CHARACTER  IS  A  *  THE  PREVIOUS  CARD  WAS  A  COMMENT  CARD 

IF  ( ALPHA 1( 1 ) . NE . ZALPH2 ( 12 ) )  GOTO  10 

6  ICC-0 
GO  TO  1 

9  WRITE  ( 6 , AA )  ( ALPHA 1 ( I ) , I-l . 2) , ( ALPHA2 ( I ) , I-l , 9) , (CHAR( I ) ,1—1,60) 

GO  TO  2A 

C  SEARCH  FIRST  TWO  ALPHAMERIC  CHARACTERS  TO  SEE  IF  THEY  ARE  NUMBERS 

10  ICC-1 

DO  12  1-1,10 

IF  ( ALPHA 1 ( 1 ) . EQ. ZALPH2( I ) )  GOTO  15 

11  IF  ( ALPHA1 (2 ) . EQ . ZALPH2( I ) )  GOTO  15 

12  CONTINUE 

C  STATEMENT  NUMBER  7  IS  BRANCHED  TO  IF  NUMBERS  ARE  PRESENT 
C  IF  NOT  NUMBER  SEARCH  COMMAND  TABLE  FOR  MATCH 

C  CALL  FIRST  10  VALUES  FROM  PERMANENT  DATA  STORAGE 
DO  1A  I-l.NCOMM 
DO  13  J-1,11 

IF  (CTBL1(  I ,  J)  .NE.  ALPHAK  J) )  GOTO  1A 
CONTINUE 
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DO  131  J-1,9 

IF (CTBL2(I , J) . NE . ALPHA2( J) )  GOTO  14 
131  CONTINUE 

C  IF  THIS  LOOP  IS  COMPLETED  WE  HAVE  COMPLETE  MATCH-  CALL  NCODE 
C  AND  MAX  NUMBER  AND  EXIT  LOOP 

NCODE-ITBLE(I,l) 

MAXNO-ITBLEU ,2) 

GO  TO  21 

14  CONTINUE 

C  IF  MAJOR  LOOPS  FINISHED  WITHOUT  A  MATCH  WRITE  ERROR  MESSAGE 
C  AND  SET  NER  -  1 

NER-1 

WRITE  (6,46) 

RETURN 

C  CONVERT  DIGIT  INPUT  CODE  FROM  ALPHAMERIC  TO  INTEGER  FORM 

15  NCODE-GIT (ALPHA1 ,1,2,1. )+0 . 5 

C  FIND  MAX  NUMBER  OF  DATA  ITEMS  FOR  THIS  NCODE 

DO  17  I-l.NCOM 
IF  (ITBLEU.  D-NCODE)  17,16,17 

16  MAXNO-ITBLE(I,2) 

GO  TO  21 

17  CONTINUE 

C  SEARCH  DATA  ROUTINE 

C  SEE  IF  ANY  DATA  FOR  THIS  CARD 

DO  19  I-1.NC06W 
IF  (ITBLE( I, 1J-NCODE)  19,18.19 

18  MAXNO-ITBLE<I, 2) 

GO  TO  20 

19  CONTINUE 

20  CONTINUE 

21  IF  (MAXNO)  23,22,23 

22  RETURN 

C  ZERO  ARRAYS  AND  COUNTERS 

23  DO  47  1-1,310 

47  DATA  (I)-0. 

NDATA-1 

24  NCHAR-0 

25  DO  26  1-1,10 
AUXA( I )-"*" 

26  AUXB( I )-"*" 

IT1-1 

IT2-1 

SIGN-1. 

LDGIT-0 

KDGIT-0 

C  CARRY  OUT  DIGIT  BY  DIGIT  SEARCH  AND  ACCUMULATION 

27  NCHAR-NCHAR+ 1 

C  HAVE  WE  CONSIDERED  ALL  CHARACTERS  -  RETURN  IF  SO 

IF  (NCHAR-60)  28,32,1 

28  DO  29  1-1,15 

IF  (CHAR(NCHAR ) >EQ . ZALPH2( I ) )  GOTO  30 

29  CONTINUE 
GO  TO  32 

30  GO  TO  (33,33,33,33,33,33,33,33,33,33,32,27,36,32,31,27),  I 

C  SN  39  HANDLES  SIGN  CONTROL  ON  1130  VERSION 

31  SIGN— 1.0 
GO  TO  27 

C  CHARACTER  IS  BLANK  OR  CONMA  -  DOES  IT  FOLLOW  A  DIGIT 
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32  GO  TO  (27, *8),  IT1 

C  CHARACTER  IS  A  DIGIT  -  HAS  A  DECIMAL  BEEN  ENCOUNTERED 

33  GO  TO  (34,35),  IT2 

34  LDGIT-LDGIT+1 
IT1-2 

AUXA  ( LDG I T ) -CHAR  ( NCHAR ) 

GO  TO  27 

35  KDGIT-KDGIT+1 

AUXB  ( KDGIT )  "CHAR  ( NCHAR ) 

GO  TO  27 

C  CHARACTER  IS  A  DECIMAL  -  DOES  IT  FOLLOW  A  DIGIT 

36  GO  TO  (37,38),  IT1 

37  IT1-2 
LDGIT-1 

38  IT2-2 
GO  TO  27 

C  ROUTINE  TO  CONVERT  ALPHABETIC  ARRAY  TO  FLOATING  POINT  NUMBER 
48  DATA  (NDATA)-CIT(AUXA, l.LDGIT, 1. )+GIT(AUXB, 1,10,0. ) 

DATA  (NDATA)-DATA(NDATA)*SIGN 

C  IS  ALL  DATA  FURNISHED  YES-RETURN  NO  INCREASE  N  DATA  KEEP  ON 

IF  (NDATA-MAXNO)  41,39,39 

39  ICC-0 

40  RETURN 

41  NDATA-NDATA+1 
GO  TO  25 

C 


42 

FORMAT 

( 2A1 , 9A2 , 60A1 ) 

43 

FORMAT 

( 1R1 ) 

44 

FORMAT 

( 5X, 2A1 , 9A2 , 60A1 ) 

46 

FORMAT 

( 10X , 20HCOPMAND  NOT  IN  TABLE) 

END 
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c 

c 

c 

FUNCTION  GIT  (TCARD , J , JLAST, SHIFT ) 

C 

C 

C  Converts  alphabetic  array  to  floating  point  number 
C 

CHARACTER*  1  TCARDUO),  A(10).TTEST 

DATA  A(1)/1H1/,A(2)/1H2/,A(3)/1H3/,A(A)/1H4/,A(5)/1B5/,A(6)/1H6/ 
DATA  A(7)/1H7/,A(8)/1H8/,A(9)/1H9/,A(10 )/ 1H0/ 

C 

GIT-0. 

TEN-10. 

SUM-0 . 

DO  3  JNOW-J,  JLAST 
TTEST-TCARD(JNOW) 

C  CHECK  FOR  LAST  ENTRY 

IF  (TTEST.EQ.  .  )  GO  TO  1 
C  FIND  NUMBER  AND  COMPUTE  VALUE 

DO  2  NUMB-1.10 
IF  (TTEST-A(NUMB) )  2,1,2 

1  ZTEST-NUMB 

IF  (ZTEST.EQ.10.)  ZTEST-0 . 

SUM-SUM*TEN+ZTEST 
GO  TO  3 

2  CONTINUE 

3  CONTINUE 

1  IF  (SHIFT)  6,5,6 

5  FI-JNOW-1 
SUM-SUM* (0.1**FI) 

6  GIT-SUM 
RETURN 
END 


147 


c 

c 

c 

SUBROUTINE  BPLOT 
C 

C 

C  THIS  SUBROUTINE  PLOTS  EITHER  1  OR  2  HYDROGRAPHS  ON  A  SET  OF  AXIS 
C 

CO6WON/BLOCK2/OCFS{300 , 6 ) , DATA (3 10) ,RAIN(300) ,ROIN(6) , 

&IENDC6) ,DA(6) ,DT(6) , PEAK(6) . TIME.KCODE , ICODE 
CHARACTER*  1  ZERO ,  PLUS ,  BLANK ,  DASH ,  DOT 
CHARACTER* 1  CCFS(132) 

C 

ID1-DATA( 1 ) 

ID2-DATAI2) 

DATA  ZERO,  PLUS,  BLANK,  DASH,  DOT/ ' 0 

MAX-69 

J-l 

C  ARE  THERE  I  OR  2  HYDROGRAPHS 

IF  (ID2)  1,1,2 

C  DETERMINE  HIGHEST  PEAK  IF  2  HYDROGRAPHS 

1  QMAX-PEAK(IDl) 

GO  TO  1* 

2  IF  (PEAK(IDI)-PEAK(ID2))  3,3,4 

3  QMAX-PEAKCID2) 

GO  TO  5 

4  QMAX-PEAK(IDl) 

C  IF  2  HYDROGRAPHS  DETERMINE  LARGEST  DT  AND  INTERPOLATE  OTHER 

C  HYDROGRAPH  IF  NECESSARY 

5  IF  (DT(ID1)-DT(ID2))  6,13,7 

6  L-ID1 
K-ID2 
GO  TO  8 

7  L-ID2 
K-ID1 

8  M-IEND(L) 

TID-DT(K) 

TIDH-0, 

DO  11  1-2, M 
TIDH-TIDH+DTU) 

IF  (TID-TIDH)  10,9,11 

9  J-J+l 

CFS  ( J )  K)CFS  ( I ,  L ) 

TID-TID+DT(K) 

GO  TO  11 

10  J-J+l 

CFS(J)-CCFS(I-1.L)+((TID-TIDH+DT(L))/DT(L) )* (OCFSt I , L) -OCFS( I- 1 , L ) 
&) 

TID-TID+DT(K) 

11  CONTINUE 
IEND(L)-J 
DT(L)-DT(K) 

DO  12  1-2, J 
OCFS(I,L)CFS(I) 

IF  ( IEND( ID1 )  -IENDC ID2) )  14,14,15 


12 

13 
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1*  f*-I£ND(IDl) 

GO  TO  16 

15  tMEND(ID2) 

16  XM  -  M 

C  DETERMINE  TIME  SCALE 

XSCL  -  XM  /  120. 

YSCLKJMAX  /  50  . 

C  PLOT  HYDROGRAPHS 

DO  20  I-l.MAX 

20  CFSCD-DASH 
IF(ICODE.EQ.O)GO  TO  4 9 
WRITE(6 , 50 ) 

50  FORMAT (T2.  "FLOW  RATE  (CMS)”) 

QMAX1-QMAX-0. 02832 

WRITE(6,41)QMAX1,D0T, (CFS(I) ,1-1, MAX) ,DOT 
GO  TO  51 

49  WRITE(6,48) 

48  FORMAT (T2. 'FLOW  RATE  (CFS)') 

WRITE ( 6 . 4 1 ) QMAX . DOT . ( CFS ( I ) , l - 1 , MAX ) , DOT 

51  Ql-QMAX 
Jl-10 

DO  37  J-1,50 
IF  (J-Jl)  23.21.23 

21  DO  22  1“ 1 .MAX 

22  CFS(I)«DASH 
GO  TO  25 

23  DO  24  I-l.MAX 

24  CFS(I)-BLANK 

25  Q2-Q1-YSCL 
DO  28  1-2, M 

IF  (OCFS(I.IDl)-Ql)  26,27,28 

26  IF  (OCFSCI , ID1)-Q2)  28.28,27 

27  XI  -  I 

K  -  XI  /  XSCL  +  1. 

CFS(K)-ZERO 

28  CONTINUE 

WRITE  (6,44)  DOT . (CFS( I ) , 1-1 .MAX ) , DOT 

IF  (ID2)  34,34,29 

29  DO  18  I  -  1,  MAX 

18  CFS ( I )  -  BLANK 

DO  33  1-1 ,M 

IF  (OCFS(I , ID2 )-Ql )  30,31,33 

30  IF  (OCFSCI , ID2 )-Q2 )  33,33,31 

31  XI  -  I 

K  -  XI  /  XSCL  +  1. 

CFS(K)-PLUS 

33  CONTINUE 

WRITE  (6,42)  ( CFS ( I ) , I- 1 , MAX ) 

34  IF  (J-Jl)  36,35,36 

35  Jl-Jl+10 

IF ( ICODE . EQ , 0 )GO  TO  52 
QD-Q2*0 . 02832 
WRITE( 6, 43 )QD 
GO  TO  36 

52  WRITE ( 6 , 43 )Q2 

36  01-02 

37  CONTINUE 
CFS(  D-TIME 
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DTT-DT(ID1)*!XM  -  1. )  /  12. 

C  PUT  TIME  ARRAY  IN  CFS  AND  WRITE  TIME  SCALE 

DO  38  1-2,13 

38  CFS(  I  )KIFS(  I-1)+DTT 

WRITE  (6, *5)  (CFS(I) , 1-1, 13) 

WRITE  (6, *6) 

RETURN 

C 

41  FORMAT!  IX,  F7. 0, 123A1) 

42  FORMAT! 1H+.8X, 12 LAI) 

43  FORMAT  !1H+,F7.0) 

44  FORMAT  (8X.123A1) 

45  FORMAT !T3,13F10. 2) 

46  FORMAT!49X, 'TIME  HOURS'///) 

END 
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c 

BLOCK  DATA 
C 

C  BLOCK  DATA  SUBPROGRAM  UZED  TO  INITIALIZE  ZALPHA, CTBLE , ITBLE 
C  AND  NCOMM . 

COMON/BLOCK1  /CTBLE  (50,11),  ITBLE  (50,2).  ZALPHA(  20 ) . 

4MAXN0 ,  NCODE  ,  ICC ,  NCC**1 

COMON/BLOCLA/ZALPH2C  70 )  ,CTBL1  (  50 , 2 )  ,CTBL2(  50,9) 

CHARACTER* 1  ZALPH2.CTBL1 
CHARACTER*2  CTBL2 

DATA  ZALPH2/ 1H1 , 1H2, 1H3, 1H4 , 1H5, 1H6, 1H7 , 1H8, 1H9, 1H0, 1H  , 
41H*,1H. ,1H, ,1H-,1H  , 1H  , 1H  , 1H  , 1H  / 


DATA  NCO^M/  15/ 


C 


DATA  CTBL1/1HS, IRS, 1HC, 1HP, 1HP, 1HA , 1HS , 1HC , 1HS , 1HC , 1HR, 
41HR,1HE,1HS,1HF.35*1H  , 

41HT , 1HT , 1HO , 1HR , 1HL . 1HD . 1HT , 1HO , 1HT , 1HO , 1HO , 1HO , 1HR , 
41HE , 1HI , 35*1H  / 


DATA  CTBL2/ 

42HAR , 2HOR , 2HMP . 2HIN , 2HOT , 2HD  , 2HOR . 2HKP , 2HOR . 2HMP , 
42HUT , 2HUT , 2HRO, 2HDI , 2HNI , 35*2H  . 

42HT  , 2HE  ,2HUT,2HT  , 2H  H.2HHY.2HE  ,2HUT,2HE  ,2HUT, 


42  HE 

, 2HE  , 2HR  , 2HME , 2HSH , 3  5*2H 

42H 

.2HHY.2HE  , 2HHY , 2HYD , "HD  ,, 

42H 

.  2HRE ,  2HAN ,  2HNT ,  2H 

,35»2H 

42H 

, 2HD  .2HHY.2HD  . 2H 

,2H 

42H 

, 2HSE , 2HAL , 2H  Y,2H 

, 35*2H 

42H 

,2H  ,  2HD  ,2H  ,2H 

,2H  ,; 

42H 

. 2HRV, 2HYS , 2HIE , 2H 

,35*2H 

46*2H 

,2H  C.2HNG.2H  T.2HEL.2H 

46*2H 

.2HUR.2H  C.2HIM.2H 

T.2H 

46*2H 

,  2HVE ,  2HUR ,  2HE  .2HIM.40*: 

47*2H 

,  2HVE ,  2H  ,2HE  ,<.0 

*2H  / 

, 2HOI , 2HIS , 2HLD , 36*2H 
, 2HR  , 38*2H  . 


DATA  ITBLE/ 1 , 2, 3 ,4,5,6,7,8,9,10,11,12,13,14, 15, 35*1H  , 
43, 310, 310, A, 2, <i,100, 3 10, 100, 8, 7, 25, 2, 5, 0, 35*  1H  / 

END 


2  C 

3  C  MILHY3  -  a  mathematical  flood  forecasting  model  for 

4  C  ungauged  catchments 

5  C 

7  C 

8  C  Program:  MILHY3 

9  C  (MILHY2)  including  two-stage  channel  modelling. 


10 

C 

With  improved  out-of-bank  flood  modelling  incorporating 

11 

C 

MOMENTUM  EXCHANGE  between  in  and  out  of  bank  flows  and 

12 

C 

MULTIPLE  ROUTING  REACHES  -allowing  separate  pathways  for 

13 

C 

channel  and  floodplain  flows. 

14 

C 

15 

C  Coded  by: 

Laura  Baird 

16 

c 

University  of  Bristol 

17 

C 

18 

C  NOTES 

Upgraded  subroutines 

19 

c 

ADHYD 

20 

c 

STHYD 

21 

c 

CMPRC 

22 

c 

STT 

23 

c 

CMPTT 

24 

c 

ROUTE 

25 

c 

PRTHYD 

26 

c 

BLKDTA 

27 

c 

28 

C  Notes 

The  structure  of  the  code  remains  unaltered. 

29 

C 

All  additional  computations  occur  within  existing 

30 

C 

subroutines . 

31 

C 

HOWEVER,  there  are  significant  changes  in  the  manner  in 

32 

C 

which  the  data  set  DATA1  must  be  set  out  to  facilitate 

33 

C 

utilisation  of  the  new  capabilities. 

34 

C 

All  punch  card  capabilities  have  been  removed. 

35 

c 

36 

C  UNITS 

All  computations  (except  in  the  infiltration  algorithm) 

37 

c 

are  carried  out  in  Imperial  units,  irrespective  of  KCODE 

38 

c 

and  ICODE. 

40 

c 

41 

c 

42 

COMMON /BLOCK 1 /CTBLE ( 50 , 1 1 ) , I TBLE ( 50 , 2 ) , 2ALPHA ( 20 ) . 

43 

&MAXNO .  NCODE ,  ICC ,  NCCfW 

44 

c 

4  5  C06W0N/BL0CK2/0CFS(  300 , 6) ,  DATA ( 310} , RAIN ( 300 )  ,ROIN(6 ) , 

46  &IEND(6 ) , DA(6 ) , DT(6) , PEAK C 6 ) , TIME .KCODE , ICODE 

47  C 

48  COWON /BLOCK3/A(  20 ,70), 0(20, 70),  DEEP(  20 , 70) ,  DP  (20) , 

49  &SCFS(20) ,C(20,6),DIST(6),SEGN(6), ISG(6) , PERQ(20 , 70 ) . 

50  &TQ(20 .6) ,CC(20) , LL( 6 ) , INRC , LRC 

51  C 

52  C  Definition  of  variables  in  common  1 

53  C  control  variables 

54  C  CTBLE  Command  table 

55  C  ITBLE  Integer  table 

56  C  2ALPHA  Alphanumeric  code  table 

57  C  MAXNO  lias,  number  of  data  expected  for  any  cocsnand 

58  C  NCODE  Number  of  command 
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59  C  ICC  Continuation  line 

60  C  NCCm  Total  number  of  legal  commands 

61  C 

62  C  Definition  of  variables  in  cannon  2 

63  C  hydrograph  variables 

64  C  OCFS  Hydrograph  discharge 

65  C  DATA  Data  associated  with  each  command 

66  C  RAIN  Cumulative  precipitation  values 

67  C  ROIN  Volume  of  discharge  hydrograph 

68  C  note:  this  variable  is  no  longer  divided  by  area 

69  C  IEND  Number  of  points  in  the  hydrograph 

70  C  DA  Drainage  area 

71  C  DT  Time  increment  for  rainfall  or  discharge 

72  C  PEAK  Peak  discharge  for  hydrograph 

73  C  TIME  Start  time  of  simulation 

74  C  KCODE  Measurement  unit  of  input 

75  C  0  -  imperial 

76  C  not  0  -  metric 

77  C  ICODE  Measurement  unit  of  output 

78  C  0  -  imperial 

79  C  not  0  -  metric 

80  C 

81  C  Definition  '•'f  variables  in  common  3 

82  C  rating  curve  and  routing  variables 

83  C  A  Cross-sectional  area 

84  C  Q  Discharge 

85  C  DEEP  Elevation 

86  C  SCFS  Discharge  from  previously  computed  raing  curve 

87  C  C  Absolute  stage  elevations 

88  C  DIST  Flow  segment  width 

89  C  SEGN  Manning's  n  for  flow  segment 

90  C  ISG  Last  elevation  input  in  flow  segment 

91  C  PERQ  Percentage  discharge  in  flow  segment 

92  C  TQ  Total  discharge 

93  C  CC  Travel  time  coefficient 

94  C  LL  Number  of  zero  discharge  values  in  rating  curve  segment 

95  C  INRC  Inflow  rating  curve  identifier  (multiple  routing) 

96  C  LRC  Outflow  rating  curve  identifier  (multiple  routing) 

97 

98  OPEN  ( 1 .STATUS* 'OLD' , FILE-' data 1 ’ ) 

99  OPEN (2 5, STATUS- 'OLD* ,FILE-‘data2' ) 

100  OPEN (6, STATUS-' NEW' , FILE- ’ results ' ) 

101  NCODE-O 

102  ICC-0 

103  1  NER-0 

104  CALL  HONDO 

105  IF  (NER)  2,2,17 

106  2  GO  TO  (3,4,5,6,7,8,9,10,11,12,13,14,15,16,17),  NCODE 

107  3  TIME-DATA(l) 

108  KCODE-DATA ( 2 ) 

109  IC0DE-DAT*(3) 

110  GO  TO  1 

111  4  CALL  STHYD 

112  GO  TO  1 

113  5  CALL  CMPHYD 

114  GO  TO  1 

115  6  CALL  PRTHYD 

116  GO  TO  1 
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117 

7 

CALL  HPLOT 

118 

GO  TO  1 

119 

8 

CALL  ADHYD 

120 

GO  TO  1 

121 

9 

CALL  SRC 

122 

GO  TO  1 

123 

10 

CALL  CMFRC 

12* 

GO  TO  1 

125 

11 

CALL  STT 

126 

GO  TO  1 

127 

12 

CALL  CMPTT 

128 

GO  TO  1 

129 

13 

CALL  ROUTE 

130 

GO  TO  1 

131 

14 

CALL  RESVO 

132 

GO  TO  1 

133 

15 

CALL  ERROR 

13* 

GO  TO  1 

135 

16 

CALL  SEDT 

136 

GO  TO  1 

137 

17 

STOP 

138 

END 

139 

C 

140 

c 

1*2 

^  ““ 

c 

1*3 

SUBROUTINE  HONDO 

144 

145 

c 

c  — 

1*6  C 

1*7  C  This  subroutine  reads  in  the  data  from  'datal',  searches  an  alphanumeric 
1*8  C  code  table  to  determine  the  NCODE  of  the  required  operation,  and  collects 
1*9  C  variables  from  the  freefloating  data  field. 

150  C 

151  C  The  command  table  (CTBLE),  integer  table  (ITBLE),  number  of  coomands 

152  C  (NCCTU)  and  alphanumeric  array  (ZALFHA)  are  initialized  in  BLOCK  DATA 

153  C  located  at  the  end  of  this  listing. 

15*  C 

155  C 

156 

157 

158  C 

159 

160 

161  C 

162 

163  C 
16* 

165  C 

166  1 
1G7  C 

168  C 

169 

170  2 

171  C 

172  3 

173  * 

17*  5 


C0PM0N/ BLOCK 1 /CTBLE ( 50 , 1 1 ), ITBLE ( 50 , 2 ), ZALPHA ( 20 ) . 

SMAXNO .  NCODE ,  ICC .  NCOMi 

COMMON /BL0CK2/0CFSC 300 , 6 ) , DATA ( 310 ) .RAIN (300) ,ROIN(6) , 

&IENDC6 ) ,DA(6) , DT(6 ) , PEAX(6) , TIME , KCODE , ICODE 

DIMENSION  CHAR (60) .  ALPHA( 11 ) , AUXAt 10) , AUXB( 10 ) 

IF  (ICC)  1,1,3 
READ  IN  DATA  CARD 

RE/D  (l.*2j  (ALPHA(I).I-l, 11), (CHAR(I), 1-1,60) 

IF  FIRST  CHARACTER  IS  BLANK  THE  CARD  IS  A  CONTINUATION  OF 
PREVIOUS  CARD. 

IF  (ALPHA(l)-ZALPHA(ll))  2,9,2 
IF  (ICC)  3 , 3 , *0 

ASTERISK  IN  COL.  80  MEANS  SKIP  TO  NEW  PAGE  BEFORE  PRINTING  CARD 
IF  ( CHAR (60) -ZALPHA ( 11 ) )  *,5,* 

WRITE  (6, *3) 

WRITE  (6,**)  (ALPHA(I), 1-1, 11), (CHAR(I), 1-1.60) 
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C 
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IF  FIRST  CHARACTER  IS  A  *  THE  PREVIOUS  CARD  WAS  A  COfMENT  CARD 

176 

IF  ( ALPHA C 1 )-ZALPHA( 12) )  10.6,10 

177 

6 

ICC-0 

178 

GO  TO  1 

179 

9 

WRITE  (0,44)  (ALPHA(I),  1-1,11),  (CHARd  ) ,  1-1 , 60 ) 

180 

GO  TO  24 

181 

C 

SEARCH  FIRST  TWO  ALPHAMERIC  CHARACTERS  TO  SEE  IF  THEY  ARE  NUMBERS 

182 

10 

ICC-1 

183 

DO  12  1-1,10 

184 

IF  (ALPHA(l)-ZALPHA(I))  11,15,11 

185 

11 

IF  (ALPHA(2) -ZALPHA( I ) )  12,15,12 

186 

12 

CONTINUE 

187 

C 

STATEMENT  NUMBER  7  IS  BRANCHED  TO  IF  NUMBERS  ARE  PRESENT 

188 

C 

IF  NOT  NUMBER  SEARCH  CC6MAND  TABLE  FOR  MATCH 

189 

C 

CALL  FIRST  10  VALUES  FROM  PERMANENT  DATA  STORAGE 

190 

DO  14  I-l.NCCMM 

191 

DO  13  J-1,11 

192 

IF  ( CTBLE ( I , J ) -ALPHA ( J ) )  14,13.14 

193 

13 

CONTINUE 

194 

C 

IF  THIS  LOOP  IS  COMPLETED  WE  HAVE  COMPLETE  MATCH-  CALL  NCODE 

195 

C 

AND  MAX  NUMBER  AND  EXIT  LOOP 

196 

NCODE-ITBLE(I.l) 

197 

MAXNO-ITBLE(I,2) 

198 

GO  TO  21 

199 

14 

CONTINUE 

200 

C 

IF  MAJOR  LOOPS  FINISHED  WITHOUT  A  MATCH  WRITE  ERROR  MESSAGE 

201 

c 

AND  SET  NER  -  1 

202 

NER-1 

203 

WRITE  (6,46) 

204 

RETURN 

205 

c 

CONVERT  TIGIT  INPUT  CODE  FROM  ALPHAMERIC  TO  INTEGER  FORM 

206 

15 

NCODE-GIT (ALPHA,  1,2,1.  )+0 . 5 

207 

C 

FIND  MAX  NUMBER  OF  DATA  ITEMS  FOR  THIS  NCODE 

208 

DO  17  I-1.NC06M 

209 

IF  (ITBLEtl,  D-NCODE)  17,16,17 

210 

16 

MAXNO-ITBLE(I,2) 

211 

GO  TO  21 

212 

17 

CONTINUE 

213 

C 

SEARCH  DATA  ROUTINE 

214 

c 

SEE  IF  ANY  DATA  FOR  THIS  CARD 

215 

DO  19  I-1.NC06M 

216 

IF  (ITBLE(I,  D-NCODE)  19,18,19 

217 

18 

MAXNO-ITBLE(I,2) 

218 

GO  TO  20 

219 

19 

CONTINUE 

220 

20 

CONTINUE 

221 

21 

IF  (MAXNO)  23,22,23 

222 

22 

RETURN 

223 

C 

ZERO  ARRAYS  AND  COUNTERS 

224 

23 

DO  *7  1-1,310 

225 

47 

DATA  (I)-0. 

226 

HD  AT  A- 1 

227 

24 

NCHAR-0 

228 

25 

DO  26  1-1,10 

229 

AUXA( I )— 0 . 

230 

26 

AUXB(I )-0 . 

231 

IT1-1 

232 

IT2-1 
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233  SIGN-1. 

234  LDGIT-0 

235  KDGIT-0 

236  C  CARRY  OUT  DIGIT  BY  DIGIT  SEARCH  AND  ACCUMULATION 

237  27  NCEAR-NCHAR+1 

238  C  HAVE  WE  CONSIDERED  ALL  CHARACTERS  -  RETURN  IF  SO 

239  IF  (NCHAR-60)  28,32,1 

240  28  DO  29  1-1,15 

241  IF  (CHAR(NCHAR)-ZALPHA(I) )  29,30,29 

242  29  CONTINUE 

243  GO  TO  32 

244  30  GO  TO  (33,33,33,33,33,33,33,33,33.33,32,27,36,32,31,27),  I 

24  5  C  SN  39  HANDLES  SIGN  CONTROL  ON  1130  VERSION 

246  31  SIGN— 1.0 

247  GO  TO  27 

248  C  CHARACTER  IS  BLANK  OR  COrtIA  -  DOES  IT  FOLLOW  A  DIGIT 

249  32  GO  TO  (27,48),  IT1 

250  C  CHARACTER  IS  A  DIGIT  -  HAS  A  DECIMAL  BEEN  ENCOUNTERED 

251  33  GO  TO  (34,35),  IT2 

252  34  LDGIT-LDGIT+1 

253  IT1-2 

254  AUXA(LDGIT)-CHAR(NCHAR) 

255  GO  TO  27 

256  35  KDGIT-KDGIT+1 

257  AUXB(KDGIT)-CHAR(NCHAR) 

258  GO  TO  27 

259  C  CHARACTER  IS  A  DECIMAL  -  DOES  IT  FOLLOW  A  DIGIT 

260  36  GO  TO  (37,38),  IT1 

261  37  IT1-2 

262  LDGIT-1 

263  38  IT2-2 

264  GO  TO  27 

265  C  ROUTINE  TO  CONVERT  ALPHABETIC  ARRAY  TO  FLOATING  POINT  NUMBER 

266  48  DATA  (NDATA)-GIT(AUXA,  1 ,  LDGIT,  1 .  )+GIT  ( AUXB  ,  1,10,0.) 

267  DATA  (NDATA)-DATA(NDATA)*SIGN 

268  C  IS  ALL  DATA  FURNISHED  YES-RETURN  NO  INCREASE  N  DATA  KEEP  ON 

269  IF  (NDATA-MAXNO)  41,39,39 

270  39  ICC-0 

271  40  RETURN 

272  41  NDATA-NDATA+ 1 

273  GO  TO  25 

274  C 

275  42  FORMAT  (2A1 , 9A2 , 60A1 ) 

276  43  FORMAT  (1H1) 

277  44  FORMAT  (  5X ,  2A1 , 9A2 , 60A1 ) 

278  46  FORMAT  ( 10X ,  20HCONMAND  NOT  IN  TABLE) 

279  END 

280  C 

281  C 

283  C 

284  FUNCTION  GIT  (TCARD.  J,  JLAST  .SHIFT) 

285  C 

287  C 

288  C  Convert*  alphabetic  array  to  floating  point  number 

289  C 

290  DIMENSION  TCARD(IO),  A(  10 ) 
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DATA  A(  1 ) / 1H1/ ,A(2)/1H2/,A(3)/1H3/,A(A)/1HA/,A(5)/1H5/ ,A(f)/lH6/ 
DATA  A( 7 ) / 1H7 / , A( 8 ) / 1H8/ , A< 9 ) / 1H9/ , A( 10 ) / 180/ 


DO  3  JNOW-J,JLAST 
TTEST-TCARD(JNOW) 

CHECK  FOR  LAST  ENTRY 
IF  (TTEST.EQ.O.  )  GO  TO  A 
FIND  NUMBER  AND  COMPUTE  VALUE 
DO  2  NUMB- 1,10 
IF  (TTEST-A(NUMB) )  2,1,2 
ZTEST-NUMB 

IF  (ZTEST.EQ. 10. )  ZTEST-0 . 
SUM-SUM*TEN+ZTEST 


IF  (SHIFT)  6,5,6 
FI-JNOW-1 
SUM-SUM* (0.1**FI) 


SUBROUTINE  STHYD 


THIS  SUBROUTINE  STORES  THE  COORDINATES  OF  HYDROGRAPHS, 
AND  ADDS  BASEFLOW  TO  HYDROGRAPH  STORED 

C0M10N/BL0CK2/0CFS ( 300 , 6 )  ,  DATA( 310 ) , RAIN ( 300 ) , ROINC 6 ) , 
&IEND(6) ,DA(6),DT(6),PEAK(6) , TIME ,KCODE , ICODE 


ID-DATA ( 1 ) 

NHD-DATA ( 2 ) 

DT( ID )-DATA( 3 ) 

IF (KCODE . EQ . 0 )GO  TO  10 
DATA(  A  )-DATA(  A  )/2. 590 
DATA(  5) -DATA  (  5)/0. 02632 
DO  11  J-6,306 
DATA(J)-DATA(J)/ .02832 
DA( ID )-DATA( A ) 
BSF-DATA(5) 


REMAINING  DATA  ARE  FLOW  RATES 
OCFS ( 1 , ID ) -DATA ( J ) +BSF 
PEAK(ID)  -  1. 

RO  -  DATA(J) 

DO  A  1-2,300 


OCFS ( I , ID ) -DATA ( J)+BSF 


157 


349  RO  -  RO  +  OCFS(I.ID) 

350  C  IS  FLOW  RECEDING 

351  IF  (OCFS( I ,  ID ) -OCFS( I- 1 ,  ID ) )  1,2,2 

352  C  HAS  FLOW  RECEDED  TO  CUTOFF  RATE 

353  1  IF  (OCFS(I , ID) )  5,5,4 

354  C  DETERMINE  PEAK  FLOW 

355  2  IF (OCFS( I , ID)  -  PEAK (ID) )  4,4,3 

356  3  PEAK(TD)  -  OCFS(I,ID) 

357  4  CONTINUE 

358  5  IEND(ID)«I-1 

353  fMEND(ID) 

360  ROIN(  ID)-RO*DT ( ID ) *3600 

361  RETURN 

362  END 

363  C 

364  C 

365  C  . . . . . . . 

366  C 

367  SUBROUTINE  CMPHYD 

368  C 

370  C 

371  C  This  subroutine  develops  a  unit  hydrograph,  converts  rainfall  data 

372  C  into  runoff  by  calling  the  soil  moisture  finite  difference  model, 

373  C  or  the  Curve  Number  routine, 

374  C  and  sums  these  two  to  produce  the  storm  runoff  hydrograph, 

375  C 

376  CGPMON/BLOCK2/OCFS(300 , 6) ,  DATAC310)  , RAIN (300 )  ,ROIN(6 ) , 

377  &IEND(6) ,CA(6 ) ,DT(6) , PEAK(6) . TIME .KCODE , ICODE 

378  C 

379  DIMENSION  CFS(300) 

380  C  CFS  Unit  hydrograph  discharge 

381  TEMP-0. 

382  C 

383  C  Input  data  read  into  subroutine 

384  ID-DATA(l) 

385  NHD-DATA(2) 

386  DT ( ID)-DATA(3 ) 

387  IF ( KCODE. NE.0) THEN 

388  C  Convert  metric  to  imperial 

389  DATA( 4 )-DATA(4 ) /2 . 590 

390  IF(DATA(6 ) .LT . 0 )GO  TO  40 

391  DATA(6 )-DATA(6 ) /0 . 3048 

392  DATA( 7 )-DATA(7 ) / 1 . 6 

393  ENDIF 

394  40  DA(ID)-DATA(4 ) 

395  CN-DATA(5) 

396  C  Data  items  6  and  7  normally  hold  watershed  height  and  length  and 

397  C  from  these  the  constants  XK(recession  constant)  and  Tp(time  to  peak) 

398  C  can  be  calculated. 

399  C  If  XX  and  Tp  are  known  however,  they  can  be  entered  instead 

400  C  and  a  negative  sign  is  put  before  their  values. 

401  IF  (DATA(6 ) . LT . 0 . )THEN 

402  XK— DATA(6) 

403  TP— DATA(7) 

404  ELSE 

405 

406 


HT-DATA(6) 
XL“DATA( 7 ) 
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407 

406 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 

420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 
4  50 
451 
4  52 
453 
4  54 
455 
4  56 

457 

458 

459 

460 

461 

462 

463 

464 


SLOPE-HT/XL 
XLDW-(XL**2. )/DA(ID) 

XX-27.0*(DA(ID)**.231)*(SLOPE**(-.777))*(XLDW**.124) 

TP-4 .63* (DA( ID)**. 422)* (SLOPE** (-.46))* (XLDW**. 133) 

ENDIF 

C  The  atom  runoff  array  and  unit  hydrograph  array  are  intialised  to  0, 
C  and  peak  of  hydrograph  to  1 
DO  4  1-1,300 
CFS(  I  )-0 

4  OCFS( I , ID )-0 . 

PEAK( ID)=1 . 

C  Compute  unit  hydrograph  parameters 
C  Compute  'N'  by  iteration 
XN-5.0 
XKTP-XK/TF 
DO  6  1-1,50 

TINF-1 . +SQRT ( 1 . / (XN-1 . )) 

XN1-. 05/ (XKTP*(ALOG(TINF /(TINF+.05))+.05))+l. 

DIFF-ABS(XNl-XN) 

IF  (DIFF-.001)  7,7,5 

5  XN-XN1 

6  CONTINUE 
WRITE  (6,29) 

29  FORMAT ( '  N  DID  NOT  CONVERGE  AFTER  50  ITERATIONS.-) 

GO  TO  28 

C  Compute  'Cl' 

/  DELT-TINF / 100 . 

TC1-0 . 

XN1P-XN-1. 

XN1M-1.-XN 
DO  8  1-2,101 
TC1-TC1+DELT 

8  CFS( I )-(TCl**XNlP)*EXP(XNlM* (TC1-1 . )) 

SUM-CFS( 10  X ) / 2 . 

DO  9  1-2,100 

9  SUM-SUM+CFSd) 

C1-SUM*DELT 

C  Compute  'B' 

CFSII-CFS(lOl) 

TTINF-TINF*TP 
TREC1-TTINF+2 .  *XX 
EEE-EXP(  (TTINF-TRECD/XK) 

XX 1-3 . *XX 

B-64  5 . 333/  (C1+CFSII*(XKTP*(  1 .  -EEF.  )+EEE*  (XXI /TP )  > ) 

C  Compute  'QP'  and  'CFSI' 

OP-(B*DA( ID) )/TP 
CFSI-QP*CFS(101) 

cfsrik:fsi*eee 

IF( ICODE . EQ . 0 )GO  TO  45 
QP1K)P*.  02832 
WRITE(6,38)XN,0P1 

38  FORMATf’  Shape  constant.  N  -  ’,F6.3/'  Unit  peak  -  '.F10.1.1X 
& , 1 cma ' / ) 

GO  TO  44 

45  WRITE  (6,30)  XN.QP 

30  FORMAT ( ‘  Shape  constant,  N  -  \F6.3/’  Unit  peak  -  '.F10.1.1X 
* , ' cma ’ / ) 

C 
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465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 
4  90 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 


4  4  CONTINUE 

C 

C  Determine  the  incremental  runoff 
C 

IFCKCODE  .  NE  .  0 )  THEN 

IFCDATAC8) .LT.OJGO  TO  13 

C  Convert  rainfall  data  from  mm  to  inchea. 

DO  34  K-8,308 

34  DATA(K)-DATA(K)/25.4 
ENDIF 

35  J-8 

IF  (DATA(J))  13,10,10 

10  RAIN ( 1 )“DATA( J) 

DO  11  1-2,300 
J-J+l 

RAIN(I)-DATACJ) 

IF  (RAIN(I)-RAIN(I-l))  12,11,11 

11  CONTINUE 

12  NUMB-I-1 

C 

C  Curve  number  routine 

13  IF (CN. LE . 0 )GOTO  201 

C  STORAGE 

R-1000. /CN-10 
B1-.2*R 
DO  15  1-1, NUMB 
IF(RAIN(I)-B1)33,33,14 
33  DATA(I)-0 

01-0 
GOTO  15 

14  Q2-((RAIN(I)-B1)**2. ) / (RAIN ( I )+ . 8*R) 

DATACI )-C2~Ql 

Q1-Q2 

15  CONTINUE 
GOTO  202 

C 

C  Soil  moisture  algorithm 

201  DO  5555  1-1,300 

5555  DATACI )-0 

TEMP-DT ( ID ) 

C 

CALL  SOILMCTEMP, NUMB, RAIN, DATA) 

C  Subroutine  returns  a  vector  of  runoff  values  from  the  soil  moisture  model 
C  If  no  runoff  has  been  generated  by  the  soil  water  model,  then  the  simulation 
C  stops. 

DO  100  I - 1 , NUMB 
IFCDATAC I ) . EQ . 0 . )GOTO  100 
GOTO  200 
100  CONTINUE 

WRITEC  6 , 300 ) 

300  FORMATC’  Soil  water  model  generated  no  runoff'/ 

A'  Simulation  terminates') 

STOP 

200  CONTINUE 


C 

C  Compute  unit  hydrograph 
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523  202  T2-0. 

524  CFS(l)-0. 

525  DO  20  1-2,300 

526  T2-T2+DKID) 

527  IF  (T2-TTINF)  16,16,17 

528  16  CFS(I)K3P*((T2/TP)**XN1P)*EXP(XN1M*(T2/TP-1. )) 

529  GO  TO  20 

530  17  IF  (T2-TREC1)  18,18,19 

531  18  CFS(I)K:FSI*EXP((TTIKF-T2)/XK) 

532  GO  TO  20 

533  19  CFS(I)K:FSR1*EXP((TR£C1-T2)/XK1) 

534  IF  (CFS(I)-l.)  21,21,20 

535  20  CONTINUE 

536  1-300 

537  21  ICND-I 

538  C 

539  C 

540  C  Compute  the  storm  runoff  hydrograph  by  summing  the  unit  hydrograph  and 

541  C  the  runoff  from  the  soil  moisture  model. 

542  C 

543  C 

544  DO  24  J-2 ,  NUMB 

545  N-J+ICND-2 

546  IF  CN-300)  23,23,22 

547  22  N-300 

548  23  1  -2 

549  DO  24  K=  J.N 

550  OCFS(K, ID)-OCFS(K, ID)+DATA(J)*CFS(I ) 

551  I-I+l 

552  24  CONTINUE 

553  C 

554  C  Compute  the  runoff  volume  and  determine  the  peak. 

555  C 

556  C 

557  RO  -  0. 

558  DO  26  I  -  2. N 

559  RO  -  RO  +  0CFS(I,ID) 

560  IF  (OCFS( I , ID) -PEAK C ID))26,26,25 

561  25  PEAK(ID)-  OCFS(I.ID) 

562  26  CONTINUE 

563  I END  (ID)  -  N 

564  ROIN(ID)-RO*DT(ID)*3600 

565  C 

566  28  RETURN 

567  END 

568  C 

569  C 

571  C 

572  SUBROUTINE  SOILM(DT , IR , CUMRAIN , DATA ) 

573  C 

57  4  C  --  ■ 

575  C 

576  C  A  physically  baaed  parameter  infiltration  model  which  simulates  near  surfac 

577  C  soil  water  movement,  and  hence  runoff. 

578  C 

579  C  Variables  used  in  this  subroutine 

580  C 


1 61 


581  C 

582  C 

583  C 
58  A  C 

585  C 

586  C 

587  C 

588  C 

589  C 

590  C 

591  C 

592  C 

593  C 

594  C 

595  C 

596  C 

597  C 

598  C 

599  C 

600  C 

601  C 

602  C 

603  C 
60*  C 

605  C 

606  C 

607  C 

608  C 

609  C 

610  C 

611  C 

612  C 

613  C 
61*  C 

615  C 

616  C 

617  C 

618  C 

619  C 

620  C 

621  C 

622  C 

623  C 
62*  C 

625  C 

626  C 

627  C 

628  C 

629  C 

630  C 

631  C 

632  C 

633 
63* 

635 

636 

637 

638 


TIME 

SRI 

SR2 

SR3 

NLA 

NLB 

NL 

SATCON 

SATCON2 

SATCON  3 

EMAX 

SIMDUR 

DETCAP 

AF 

WT 

THETA 

TCOM 

ALR 

AMR 

NQ 

X 

Y 

X2 

Y2 

X3 

Y3 

IR 

DT 

CUMRAIN 
NSCOL 
I  PC  AREA 
I  OUT 


Time  when  simulation  begins  (hours). 

Soil  water  content  at  saturation  layer  1. 

(m3/m3)  layer  2. 

layer  3 . 

Number  of  cells  in  layer  1. 

Number  of  cells  in  layer  2. 

Total  number  of  cells  in  column 
Saturated  permeability  (ms-1)  layer  1. 

layer  2 . 
layer  3. 

Maximum  evaporation  during  the  day  (ms-1). 

Simulation  duration  (hours). 

Surface  detention  capacity  (m) . 

Simulation  iteration  period  (secs). 

Write-out  time  period  (hrs). 

Initial  soil  water  content  for  each  cell  (m3/m3). 
Thickness  of  each  cell. 

Rain  start  time  (hours). 

Rain  stop  time. 

Number  of  observations  on  suction  moisture  curve. 

Moisture  values  ....  layer  1  (m3/m3). 

Suction  values . layer  1  (bars). 

layer  2. 
layer  2. 
layer  3. 
layer  3 . 

Number  of  rainfall  observations. 

Rainfall  data  time  increments  (hours). 

Cumulative  rainfall  data  at  DT  time  increments  (inches). 
Number  of  soil  columns. 

Percent  area  of  soil  column. 

Determines  amount  of  output. 

1  -  total  output 
0  -  shorter 


Note: 

If  SRI,  SR2 ,  SR3,  SATCON,  SATC0N2 ,  SATC0N3 ,  DETCAP,  THETA,  X,  X2 ,  or  X3 
are  proceeded  by  an  'A',  then  the  variable  type  is  double  precision 
rather  than  real.  If  SRI,  SR2,  SR3 ,  SATCON,  SATCON2 ,  SATC0N2 ,  DETCAP. 
OR  THETA  are  preceeded  by  an  'S', then  the  variable  represents  the 
standard  deviation  of  that  particular  soil  hydrological  characteristic. 

SCURV1  Standard  deviation  of  soil  moisture  curve  for  layer  1 

SCURV2  layer  2 

SCURV3  layer  3 


INITIAL  SECTION 


DIMENSION  FLUX ( 20 ) , TCOM ( 20 ) , SWP( 20 ) . THETA( 20 ) , COND ( 20 ) 
DIMENSION  VOL (20 ) , ANFLUX(20 ) , AVCOND (20 ) , DEPTH (20 ) , DISK  20 ) 
DIMENSION  X(20) , Y( 20 ) , G( 20 ) ,GZ(20 ) 

DIMENSION  CUMRAIN(251),Z(20),PPT(250) 

DIMENSION  DATA ( 300 ) ,WDATA( 300 , 10 ) , HPOT(20 ) 

DIMENSION  G2 (20 ) , Y2 ( 20 ) , X2 (20 ) , GZ2 ( 20 ) , Z2 ( 20 ) 
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639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 


DIMENSION  G3(20),Y3(20),X3(20) ,GZ3(20) ,Z3(20) 

DIMENSION  RSATC20 ) 

DIMENS ION  AX ( 20 ) , AX2 ( 20 ) , AX3 ( 20 ) , ATHETA ( 20 ) 

DIMENSION  XNEW(20) , YNEW(20)  ,X2NEW{20) , Y2NEW(20)  , 

&  X3NEW(20),Y3NEW(20) 

DOUBLE  PRECISION  G05DDF 
DOUBLE  PRECISION  DLOG10 

DOUBLE  PRECISION  ATHETA,  AX  ,AX2  ,AX3 ,  ADETCAP,  ASR1 ,  ASR2  ,  ASR3  , 

*  ASATCON ,  ASATCON2 ,  ASATCON3  .  BSATCON ,  BSATCON2 ,  BSATCON3  , 

*  SDETCAP , SSR1 , SSR2 , SSR3 , STHETA . SSATCON , SSATCON2 , SSATCON3 , 

*  SCURV1 , SC UR V 2 , SCURV3 
C 

C  READ  IN  DATA 

C  - . — 

c 

READ  ( 2 5 ,  * )  TIME ,  ALR ,  AMR ,  S IMDUR 
READ (25 , * )IOUT 
READ(25,*)AF,WT 
READ(25,*)NSCOL 
C 

C  The  array  RAIN  which  is  passed  to  the  subroutine  as  a  cumulative 
C  rainfall  total  is  in  inches. This  has  to  be  transfered  to  array 
C  PPT  which  is  in  m  and  represents  the  total  for  each  time  increment. 
IRR-IR-1 
DO  100  1*1 , IRR 

100  PPT(I)-(CUMRAIN(I+1)-CUMRAIN(I))*.0254 
DO  34543  W-l.NSCOL 

C  For  each  soli  column  in  turn,  read  in  data  and  proceed  through 

C  simulation  to  determine  runoff 

READ ( 25, *)IPC AREA 
READ (25, * )NL , NLA.NLB 
READ (25, * ) (TC0M( I ) , 1*1 ,NL ) 

READ  ( 2  5  .*)  EMAX ,  ADETCAP ,  SDETCAP 

READ (25 , * ) ASR1 , SSR1 , ASR2, SSR2 , ASR3 , SSR3 

READ  (  25 ,  *  )  ASATCON ,  SSATCON  ,  ASATCON 2  ,  SSATCON2  ,  ASATCON3  ,  SSATCON 3 
READ (25 , * ) (ATHETA ( I ) , I-l.NL) 

READ (2 5.*) STHETA 

READ(25,*)NQ 

READ (2 5, * )  (AX(  I ) ,I*1,NQ) 

READ (25 , *) (Y(I ) , 1*1 ,NQ) 

READ (25 , *  JSCURV1 

READ (25 ,*)(AX2(I),I*1,NQ) 

READ (25 ,*)(Y2(I),I“1,NQ) 

READ (25 , *)SCURV2 

READ (25, * ) (AX3 ( I ) , 1*1 , NQ) 

READ(25,*)(Y3(I),I-1,NQ) 

READ (25 , * )SCURV3 

NQJ-NQ 

NLL-NL+1 

IF( AMR . LT .ALR) THEN 
AMR-AMR+24.0 

ENDIF 

C 

C  CHECX  DATA  INPUTS 

C  . - . 

c 

NERROR-O 

C  Check  number  of  cells  in  soil  column 
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697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 
748 

747 

748 

749 

750 

751 

752 

753 

754 


IF ( NLA+NLB . GE . NL ) THEN 
WRITEC6, 1015) 

1015  FORMAT!'  Error-NLA, NLB , NL ' ) 

NERROR-NERROR+1 

ENDIF 

C 

C  Check  dimensions  of  input  vectors 

IF(NQ.GT.20.0R.NL.GT.20.0R.IR.GT.250)THEN 
WRITE (6, 1020) 

1020  FORMAT!'  Error-limit  exceeded ,  NQ.NL,  IR'  ) 

NERROR-NERROR+1 

ENDIF 

C 

C  Check  rainfall  passed  from  CMPHYD 
KN-IR-1 
DO  50  I-l.KN 

IF ! CUMRAI N ! I + 1 ) . LT . CUMRAI N ! I ) ) THEN 
WRITE!6, 1030) 

1030  FORMAT!’  Error-not  cumulative  rainfall  totals') 

NERROR-NERROR+1 

ENDIF 

50  CONTINUE 
C 

C  Check  that  initial  moisture  content  of  each  cell  lies  within  the  range  of 
C  the  suction  moisture  curve  and  does  not  exceed  stated  saturated  moisture 
C  content. 

DO  51  I-l.NLA 

IF ! ATHETA ! I ) . GT . ASR1 ) THEN 
WRITE(6, 1050) 

1050  FORMAT!'  Error-THETA  larger  then  sat  moisture  content(l)’) 

NERROR-NERROR+1 
ENDIF 

IF  (ATHETA! I ) .GT. AX!NQ) . OR. ATHETA! I ) . LT . AX! 1 ) )THEN 
WRITE(6 , 1055) 

1055  FORMAT!'  Error-THETA  outside  range  of  curves-! 1)’) 

ENDIF 

51  CONTINUE 
NLAA-NLA+1 
NLH-NLA+NLB 

DO  52  I-NLAA , HLH 

IF ( ATHETA! I ) . GT . ASR2  JTHEN 
WRITE (6. 1060) 

1060  FORMAT!’  Error-THETA  larger  than  sat  moisture  content(2)’) 

NERROR-NERROR+1 
ENDIF 

IF ( ATHETA ( I ) . GT . AX2 ( NQ )  OR . ATHETA! I ) . LT . AX2! 1 ) )THEN 
WRITE!6. 1065) 

1065  FORMAT!’  Error-THETA  outside  range  of  curve-!2)’) 

NERROR-NERROR+1 

ENDIF 

52  CONTINUE 
NLBB-NLB+NLA+ 1 
DO  53  I-NLBB.NL 

IF (ATHETA! I ) . GT . ASR3 ) THEN 
WRITE! 6 , 1070 ) 

1070  FORMAT! '  Error-THETA  larger  than  sat  moisture  content(3)') 

STOP 


ENDIF 


164 


755 

756 

757 

758 

759 

760 

761 

762 

763 
76* 

765 

766 

767 

768 

769 

770 

771 

772 

773 
77* 

775 

776 

777 

778 

779 

780 

781 

782 

783 
78* 

785 

786 

787 

788 

789 

790 

791 

792 

793 
79* 

795 

796 

797 

798 

799 

800 
801 
802 
803 
80* 

805 

806 

807 

808 

809 

810 
811 
812 


IF(ATHETA(I ) .GT . AX3 (NQ) . OR . ATHETA! I ) . LT . AX3 ( 1 )  )THEN 
WRITEI6, 1075) 

1075  FORMAT!'  Error-THETA  outside  range  of  curve  -(2)’) 

NERROR-NERROR+’ 

ENDIF 
53  CONTINUE 
C 

IF  ( NERROR . NE . 0 ) THEN 
WRITE!6, 1076)NERROR 

1076  FORMAT!’  SOILM:  number  of  input  data  errors  ’,12, 

&' Simulation  terminates') 

STOP 

ENDIF 

C 

C  DEPTH  CALCULATION 

C  . . 

c 

C  The  variable  DEPTH  is  calculated.  This  refers  to  the  distance  from 
C  ground  level  to  any  cell  midpoint. 

C  DIST  refers  to  the  distance  between  any  two  adjacent  cell  midpoints. 

C 

DIST!l)-TCOM!l)/2. 

DEPTH! l)-DIST(l) 

DO  110  I-2.NL 

DEPTH ( I ) -DEPTH ( I - 1 ) +0 . 5* ( TC0M ( I - 1 ) +TCOM ( I ) > 

110  DIST(I)-0.5*(TCOM!I-l)+TC0M(I)) 

C 

C  PARAMETER  VARIABILITY 

C  . . 

c 

C  Five  input  variables,  detention  capacity,  soil  water  content  at 
C  saturation,  soil  moisture  content  at  given  tensions,  saturated  conductivity 
C  and  initial  moisture  content  are  varied  stochastically. 

C  NAG  functions  are  called  which  return  a  ’psuedo  random’  value  from  a 
C  distribution  with  a  given  standard  deviation  and  mean. 

C  All  are  assumed  to  have  a  normal  distribution  except  the  saturated 
C  conductivity  which  tabes  on  a  lognormal. 

C 

C  Generate  only  one  set  of  stochastic  variables  to  run  in  MILHY. 

C 

C  RANDOM  PARAMETER  VALUE 

C  . — 

C 

WRITEI6, 1079) 

1079  FORMAT!’  INCREMENTAL  RUNOFF-Parameter  variability  included'//) 

C 

C  Detention  capacity. 

DETCAP-G0  5DDF ( ADETCAP , SDETCAP ) 

IFIDETCAP.LT . 0 . )DETCAP-0 . 0 

SD-SDETCAP 

HRITE16, 1180)SD 

1180  FORMAT!'  SD  of  detcap  ’,F5.3) 

C 

C  Soil  water  content  at  saturation 

SR 1-G0  5DDF ( ASR 1 , SSR 1 ) 

SR2-G05DDF ( ASR2 , SSR2 ) 

SR3^30  5DDF  ( ASR3  ,  SSR3 ) 

SD1-SSR1 
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864 

865 

866 

867 
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869 

870 


SD2-SSR2 

SD3-SSR3 

WRITE(6,1181)SD1,SD2,SD3 

1181  FORMAT!’  SD  of  saturated  soil  content F5 . 3 ,  ’  layer  1 '/ 

&  ’  ' ,F5 . 3, 1  layer  2’ / 

&  1  ’ ,F5.3, '  layer  3’ ) 

C 

C  Soil  moisture  content  at  given  tensions 

C  Layer  1 

CALL  SMCURV  ( SR  1 ,  NQ ,  AX ,  Y ,  XNEW ,  YNEW ,  SCURV1 ) 

DO  120  1-1,20 
X(I)-XNEW(I) 

120  Y(I)-YNEW(I) 

C  Layer  2 

CALL  SMCURV ( SR2 , NQ . AX2 , Y2 . X2NEW , Y2NEW , SCURV2 ) 

DO  130  1-1,20 
X2(I)-X2NEW(I) 

130  Y2(I)-Y2NEW(I) 

C  Layer  3 

CALL  SMCURV ( SR3 , NQ , AX3 , Y3 , X3NEW , Y3NEW ,  SCURV3 ) 

DO  140  1-1,20 
X3(I )-X3NEW( I ) 

140  Y3(I )-Y3NEW( I ) 

SD1-SCURV1 

SD2-SCURV2 

SD3-SCURV3 

WRITE(6 , 11821SD1 , SD2 , SD3 

1182  FORMATC'  SD  of  suction  moisture  curve’,  F5.3,’  layer  1’/ 

&  '  ’ ,  F5.3, ’  layer  2’ / 

&  ’  ’ ,  F5 , 3, ’  layer  3 ’ ) 

C 

C  Saturated  conductivity  for  each  layer 
BSATCON-DLOGIO ( ASATCON ) 

SATCON-GO  5DDF ( BSATCON , SSATCON ) 

SATCON-10**SATCON 
BSATCON2-DLOG10 ( ASATCON2 ) 

SATCON2K30  5DDF ( BSATCON2 , SSATCON2 ) 

SATCON2-10**SATCON2 
BSATCON3-DLOG10 (ASATCON 3 ) 

SATCON3^305DDF(BSATCON3 , SSATCON3 ) 

SATCON3 - 1 0  *  *  S ATCON  3 
SD 1-SSATCON 
SD2-SSATCON2 
SD3-SSATCON3 

WRITE  (6, 1183)SD1,SD2,SD3 


1183 

F0RMAT('  SD  of  sat  conductivi ty ’ , F5 . 3 , ' 

layer 

i’/ 

& 

'  ’  .  F5 . 3 , ' 

layer 

2'  / 

& 

C 

’  ■ ,  F5.3, • 

layer 

3’  ) 

C  Initial  moisture  content 
DO  150  I-l.NL 

1 50  THETA ( I )-G0  5DDF ( ATHETA ( I ) , STHETA ) 

C  Check  on  initial  soil  moisture  values 

DO  160  I-l.NLA 

IF ( THETA ( I ) . GE . X(20 ) )THETA( I)-X(20)-0.001 
160  IF ( THETA ( I ) . LE . X( 1 ) )THETA( I )-X( 1 >  +0  001 

DO  170  I-NLAA , NLH 

IF ( THETA ( I ) .  GE  .  X2(20  ) ) THETA ( I  )-X2(20  )  -  0 . 001 
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170  IF(THETACI) .LE ,X2! 1 ) )THETA( I )-X2 ! 1 >+0 . 001 

DO  180  I-NLBB.NL 

IF ( THETA ( I )  .GE ,X3!20 ) )THETA! I >-X3! 20 )-0 . 001 
180  IF ( THETA ( I ) .LE.X3I1) )THETA( I )-X3Cl)+0.001 

SD-STHETA 
WRITE (6, 1184 )SD 

1184  FORMAT!’  SD  of  initial  water  content ’ ,F5 . 3 ) 

C 

C  HYDRAULIC  CONDUCTIVITY  CALCULATION 

C  — - - 

c 

C  The  hydraulic  conductivity  is  calculated  from  suction  moisture 
C  data  for  each  layer. 

NQJ-NQ 

CALL  HYDCON (X.SATCON, SRI ,  Z,  Y) 

CALL  HYDCON (X2 , SATCON2 , SR2 , Z2 , Y2) 

CALL  HYDCON(X3 ,  SATCON3  ,  SR3  ,  Z3  ,  Y3  ) 

C 

C  WRITE-OUT  INITIAL  CONDITIONS 

C  — . - . . . 

c 

C  Write-out  suction  moisture  curve  and  generated  K-values. 

C 

WRITEI6. 1080) 

1080  FORMAT ('0GENERATED  K-MOISTURE  CURVE’/ 

&'  Millington-Quirk  Method'/ 

Layer  1 26X Layer  2' .26X. 'Layer  3’/ 

&3('  Moisture  Suction  Unsat  K  *)) 

DO  175  1-1,20 

175  WRITE! 6 , 1090 )X( I ) , Y( I ) . Z( I ) , X2( I ) . Y2( I ) , Z2( I ) ,X3( I ) . Y3 ( I > , Z3 ( I ) 
1090  FORMAT ( 1H  , 3(F6. 3 . 2X.F8. 3 ,F15. 12, 2X) ) 

C  Write-out  start  conditions. 


c 

WRITE! 6 , 1100 ) 

1100 

FORMAT! '0START  CONDITIONS  '/) 

WRITEC6, 1110)TIME 

1110 

FORMAT!’  Simulation  start  time ' ,F4 . 1 , 'hrs ’ ) 

WRITE!6, 1130)  ALR,  AMR 

1130 

FORMAT!’  Precipitation  begins  at  • , F4 . 1 , 2X , ’ and 

WRITE!6.1140)DT 

ends  at  ’ , F4 . 1 ) 

1140 

FORMAT!'  Rainfall  data  time  increment  -  '.F6.4, 

WRITE ! 6, 1120) AF 

2X, ’hrs’ ) 

1120 

FORMAT!'  Time  increment  for  Iteration  period  - 

St2X,  ’ secs'  / ) 

WRITE ! 6 , 1 1 50 ) EMAX , DETCAP 

' , F6 . 1 , 

1150 

FORMAT!'  Maximum  evaporation  during  the  day  -  ' 

,  F10 . 8 , 2X , 'ms-1' 

C 

&’  Surface  detention  capacity  -  ’ , F6 . 4 , 2X , 'm' / / ) 

C  Calculate  initial  relative  saturation  of  each  cell  in  soil  column 
DO  1151  I-l.NL 

IF ( I . LE . NLA)RSAT!I )-THETA< I )/SRl 

IF ( I . GT . NLA . AND . I . LT . NLBB )RSAT ( I ) -THETA C I ) / SR2 

IF( I .GE . NLBB)RSAT  C I ) -THETA C I )/SR3 

1151  CONTINUE 
WRITE{6, 1152) 

1152  FORMAT ( ’  INITIAL  SOIL  COLUMN  CONDITIONS'//) 

WRITEC6. 1153) 

1153  FORMAT ( 1 IX , ' SAT ' , 8X , ’ SAT  HYD 6X, ’CELL’ , IX ,' DEPTH ' , 
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&2X, ’ INITAL' ,2X, 'REL' / 

&1H  , 10X, 'THETA' ,7X, 'COND' ,9X, 'NO' ,10X, 'THETA' ,2X. 'SAT'/ 

&1H  ,10X,  ’n>3/m3’  ,  7X,  'ms-1'  ,14X,  'to'  ,  5X,  'm3/m3'/) 

WRITE (6, 1154) SRI, SATCON , DEPTH ( 1 ) , THETAf 1 ) , RSAT  C 1 ) 

1154  FORMAT ( 1  Layer  1  ' ,F7 . 4 , 1X.F15 . 12, 3X. ' 1’ , 2X.F6. 4 , 1X.F7 . 4 , 1X.F5. 3 ) 

IFCNLA.GT. 1)THEN 

DO  1155  1-2, NLA 

WRITE(6, 1156)1 , DEPTH ( I ) .THETA (I ) ,RSAT( I ) 

1156  FORMAT ( 1H  , 3 IX, 12 , 2X, F6 . 4 , IX, F7 . 4 , IX, F5 . 3) 

1155  CONTINUE 
ENDIF 

WRI TE  ( 6 , 1 1 57  )  SR2 ,  SATCON2 ,  NLAA ,  DEPTH  ( NLAA ),  THETA ( NLAA ),  RSAT  ( NLAA ) 

1157  FORMAT ( '  Layer  2  ' , F7 . 4 , IX , F15 . 12, 2X , 12, 2X , F6 . 4 , 1X.F7 . 4 , IX ,F5 . 3 ) 

IF ( NLB . GT . 1 ) THEN 

DO  1158  I-NLA+2.NLH 

WRITE(6, 1159)1, DEPTH(I),THETA(I) ,RSAT(I ) 

1159  FORMAT ( 1H  , 34X , 12 . 2X , F6 . 4 , IX, F7 . 4 , IX , F5 . 3 ) 

1158  CONTINUE 
ENDIF 

WRITE ( 6 , 1 160 ) SR3 . SATCON 3 , NLH+ 1 . DEPTH ( NLH+1 ) , THETA ( NLH+ 1 ) , 

&RSAT ( NLH+ 1 ) 

1160  FORMAT ( ’  Layer  3  ' ,F7 . 4 . IX, F15 . 12 , 2X, 12, 2X ,F6 . 4 , IX, F7 . 4 , IX ,F5 . 3 ) 

IF( (NL-NLH) .GT. 1)THEN 

DO  1161  I-NLH+2.NL 

WRITE( 6 , 1 162 ) I , DEPTH<  I ) ,  THETAU  )  ,RSAT ( I ) 

1162  FORMAT ( 1H  . 34X, 12 , 2X , F6 . 4 . 1X.F7 . 4 , IX, F5 . 3 ) 

1161  CONTINUE 
ENDIF 

C 

C  INITIALISATION  OF  VARIABLES 

C  . 

c 

DO  184  1-1,300 

184  IWWW-W 

WDATA(I , IWWW)-0 . 0 
WATI-0.0 

(**+•2 

DO  185  I-2.NL 

185  ANFLUX( I )-0 . 0 
CTIME-TIME*3600 
SRAIN1-0.0 
CUMDRN-0. 

CINFIL-0. 

SUMD-0. 

ICOUNT  -0 
BR-AMR-ALR 
EVAPI-0.0 
SOG-THETA(l)/SRl 
RTOT-O . 0 
ANFILT-0.0 
PPTT-0 . 0 
TG-0.0 

C 

C  BALANCE  CHECK 

C  . . 

c 

C  A  calculation  for  the  water  balance  check. 

C  The  Initial  soil  water  content  of  the  soil  column. 
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C 

DO  190  I-l.NL 

190  WATI-TCCM(  I )*THETA(  I  )+WATI 

C 

C  CURVE  GRADIENTS 

C  - 

c 

C  Calculations  of  the  gradients  of  the  suction-moisture  curve  and  the 
C  K-moisture  curve  for  each  layer. 

C 

CALL  GRAD(G , G2 , Y , X , Z) 

CALL  GRAD(G2,GZ2,Y2,X2,Z2) 

CALL  GRAD(G3,GZ3,Y3,X3,Z3) 

C 

C 

C  . - - - 

C  DYNAMIC  SECTION  -  SIMULATION 

C  - - - 

C 

c 

C  This  loop  is  completed  for  each  time  increment  until  end  of  simulation. 

C 

ITMAX-SIMDUR*3600/AF 
DO  9995  II-l.ITMAX 
ICOUNT-ICOUNT+AF 
TG-TG+AF 
T-II 
C 

C  CALCULATE  WATER  VOLUME  OF  EACH  CELL 

C  . 

c 

DO  200  I-l.NL 

200  VOL(I)-TCOM(I)»THETA(I) 

C 

C  24 -HOUR  CLOCK 

C 

c 

C  Calculate  REAL  TIME  for  current  iteration  period  using  the  24-hour  clock 
C 

CTIME-CTIME+AF 
IF  (CTIME.GE. 86400) THEN 
CTIMECTIME-86400 
END  IF 

C 

C  SWP.HPOT.COND  CALCULATIONS 

C  — - - 

C 

C  Calculate  the  soil  water  pressure,  hydraulic  potential  and  conductivity 
C  for  each  cell  as  conditions  change  during  the  simulation. 

C 

CALL  TW0(1, NLA,  THETA, X.SWP.Y.G.HPOT,  DEPTH. GZ.COND.Z) 

CALL  TWO(NLAA,NLH, THETA. X2 , SWP,  Y2  ,G2  , HPOT , DEPTH, GZ2.COND.Z2) 

CALL  TWO(NLBB,NL, THETA, X3, SWP, Y3.G3. HPOT, DEPTH, GZ3.COND.Z3) 

C 

C  DETERMINE  RAINFALL 

C  . . 

c 

C  Determine  rainfall  per  second  at  end  of  the  current  Iteration 
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C  period. 

C  T1  la  the  time  in  hours  when  the  current  iteration  period  ends. 

C  Check  that  T1  is  between  the  rain  start  and  stop. 

C  If  it  is,  decide  which  element  of  PPT  array  the  data  is  to  be  taken  from 
C  and  make  SRAIN  equal  to  that  precipitation  per  second. 

C  If  it  is  not  within  the  storm  period,  set  SRAIN  to  0. 

C 

C 

Tl-T*AF/3600.0 

IF(T1.LE. (ALR-TIME) .OR.T1.GT, (AMR-TIME ) JTHEN 
SRAIN-0.0 
ELSE 

T2-T1- (AF/3600 . ) 

IELEFh-((T2-(ALR-TIME))/DT)  +  l 
SRAIN-PPT(  IELEM) / (DT*3600 . 0  ) 

ENDIF 

c 

C  Increment  precipitation  total  by  amount  of  precipitation  in  current 
C  iteration  period. 

C 

PPTT-PPTT+ ( SRAIN'AF ) 

C 

C  AVERAGE  HYDRAULIC  CONDUCTIVITY 

C  . . . . 

c 

C  Average  hyraulic  conductivity  for  flow  through  boundary  between 
C  adjoining  cells  is  weighted  according  to  its  thickness. 

C 

DO  210  I-2.NL 

210  AVCOND(I)-(COND(I-1)*TCOM(I-1)+COND(I)*TCOM(D) 

&/ (TC0M(  1-1  )+TC0M( I ) ) 

C 

C  BOTTOM  BOUNDARY  CONDITION 

C  . 

c 

C  Determine  the  bottom  boundary  condition  under  the  assumption  that. 

C  water  is  flowing  out  of  the  soil  column  under  gravity. 

C 

FLUX(NLL)-COND(NL) 

C 

C  FLUX  BETWEEN  CELLS 

C  . — 

C 

C  The  flux  between  each  cell  then  follows  Darcy’s  law  in  discrete  form. 

C 

DO  220  I-2.NL 

220  FLUX ( I )-(HPOT ( I- 1 ) -HPOT(I ) )*AVC0ND( I ) /DIST ( I ) 

C 

C  DETERMINE  TOP  BOUNDARY  CONDITIONS 

C  - - 

c 

C  Calculate  the  infiltration  capacity. 

C 

BNCAP”(0 . 0-HPOT ( 1 ) )*0 . 5*(SATCON+COND( 1 ) ) /DIST ( 1 ) 

C 

C  Calculate  precipitation  excess 
C 

IF(SRAIN1 .EQ. SRAIN) THEN 
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SUMD- ( SRAIN- ANFILT ) ‘AF+SUMD 
ELSE 

SUMD-0 . 0+SUMD 
ENDIF 

SRAIN1-SRAIN 

C 

C  Calculate  amount  detained  on  the  surface. 

C 

IF(SUMD.LT.0.0)THEN 

DETAIN-0.0 

ELSE 

DETAIN-SUMD 

ENDIF 

C 

C  Calculate  evaporation,  the  flux  into  cell  1  and  runoff. 

C 

IF(SRAIN.GT.O.O)  THEN 
C 

EVAP-  0.0 

C 

IFCSRAIN . LT . BNCAP . AND . DETAIN . LE . 0 . 0 )THEN 
ANFILT-SRAIN 
ELSE 

ANFILT-BNCAP 

ENDIF 

FLUX(1)-ANFILT 

C 

IF { DETAI N . GT . DETCAP ) THEN 
SUMD-DETCAP 
DETAIN-UETCAP 
RUNOFF-O . 0 

IF ( SRAIN . GT . BNCAP ) RUNOFF” ( SRAI N-BNCAP ) *AF 
RTOT-RTOT+RUNOFF 
ELSE 

RUNOFF-O . 0 
ENDIF 
C 

ELSE 

C 

RUNOFF-O . 0 

C  CORRECTED  VERSION  MILHf 3 

IF(CTIME . GT . 64800 .OR .CTIME . LE . 21600 ) THEN 
EVAP-EMAX/100. 

ELSE 

EVAP-£M«C*SIN(2.*3. 14159*(CTIME-21600. )/8640C. ) 
ENDIF 
C 

IF (DETAIN . LE . 0 . )TH£N 
ANFILT-0.0 
FLUX(1)-EVAP*(-1. ) 

ELSE 

ANFILT-BNCAP 
FLUXC 1 J-ANFILT 

DETAIN-DETAIN-(EVAP*AF) 

ENDIF 
C 

C 


ENDIF 
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C  CHANGES  IN  SOIL  MOISTURE  CONTENT 

C  - - - 

c 

SWP(NLL)— 102.0 
DO  230  I-l.NL 

C  If  SWP  In  call  is  greater  then  0,  it  is  saturated  and  flux  must 
C  therefore  be  0. 

IF(SWP<I+1).GE.0.0)FLUX(I+1 1-0.0 

C  ANFLUX  represents  the  net  change  in  moisture  content  in  the  cell. 
ANFLUX ( I ) -FLUX (I ) - FLUX ( I + 1 ) 

ANFLUX ( I ) -ANFLUX ( I ) *AF 

C  Recalculate  theta  according  to  the  change  influxtper  unit  area). 

THETA/I )-(VOL( I )+ANFLUX ( I ) ) /TC0M( I ) 

C  Due  to  recalculation,  theta  may  be  greater  than  possible  water  content 

C  at  saturation  and  therefore  it  is  necessary  to  reset  SWP  to 

C  0  and  theta  to  the  water  content  at  saturation,  the  value  of  which  is 
C  entered  into  the  model. 

IF  ( THETA ( I ) .GE .SRI .AND . I . LE . NLA ) SWP ( I )-0 . 0 
IF  (THETA(I) .GE.SR2.AND. I  .GT .  NLA.  AND .  I .  LE  .  NLH  )SWFd  )=0 . 0 
IF(THETA(I ) .GE . SR3 . AND . I .GT . NLH)SWP( I )-0 . 0 
IF ( THETA ( I ) . GE . SRI . AND . I . LE . NLA  JTHETA ( I )-SRl 
IF(THETA( I ) . GE . SR2 . AND . I . GT . NLA . AND . I . LE . NLH )THETA( I )-SR2 
230  IF ( THETA ( I ) .GE . SR3 . AND . I .GT . NLB)THETA(I )-SR3 

C 

C  CALCULATE  CUMULATIVE  TOTALS 

C  . . 

c 

CUMDRN-CUMDRN+FLUX  ( NLL )  *  AF 
EVAPI— EVAP-AF +EVAPI 
CINFIL-CINFIL+ANFILT*AF 
SOG-THETA( 1 ) /SRI 
C 

c 

C  — . . 

C  TERMINAL  SECTION  WRITE  OUT 

C  — - - 

C 

c 

C  To  print  out  data  for  every  tine  increment  for  which  FPT  dsta  is 
C  entered,  check  ICOUNT  to  see  if  that  period  has  passed  by. 

IF( ICOUNT . LT . (DT-3600 ) )  GOTO  9995 
ICOUNT-O 
C 

C  CALCULATE  TIME  FROM  THE  START 

c  - 

C 

T-T*AF/3600 
WRITEC6 , 1 170 )T 

1170  FORMAT/ ‘OSOIL  COLUMN  CONDITIONS  ’ . F7 . 3 , IX . ' HRS  SINCE 
&  SIMULATION  BEGAN'/) 

IF/TG.EQ. 86400. 0)TG-0.0 
C 

C  WRITE-OUT  CONDITIONS  OF  SOIL  COLUMN 

C  - - - 

c 

IF ( IOUT . EQ . 0 )GOTO  305 
WRITE/6, 7780) 
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1219 

1220 
1221 
1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 
1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 


7  780  FORMAT  ('  Call  Depth  SWP  Theta  Hydcond  Net',  IX, 

&' flux  Rel  set ’ ) 

DO  300  I-l.KL 

IF(  I .  LE .  NLA )SOOTBETA(  I )  /SRI 
I F ( I . GT . NLA . AND . I , LT . NLBB ) SOG=THETA ( I ) / SR2 
IF (I . GE . NLBB ) SOG-THETA (I ) / SR3 

300  WRITE (6 , 1190 ) I , DEPTH ( I ) , SWP( I ) , THETA( I ) , COND( I ) , ANFLUX( I ) , SOG 
1190  FORMAT (I6,3F8.4,2F14.9,F9.3) 

C 

C  WATER  BALANCE  CHECK 

c  - 

C 

C  Philips  (1964)  simple  water  balance; 

C - 

C 

C  Amount  added 

C  (Initial  soil )- (Current  soil)  *  by  -  Evaporation-  Drainage 

C  (  moisture  )  (  moisture  )  infiltration  loss  loss 

C 

305  WATN-0. 

DO  310  I-l.NL 

310  WATN-TCOM(I)*THETA(I)+WATN 

BAL-WATN-WATI-CINFIL+EVAPI+CUMDRN 
WRITE  (6, 1200  )BAL 

1200  FORMAT  (’  OBalance  check  on  soil  column  water  status  **’,F12.7) 
BAL-(BAL*100. ) /WATN 
WRITE (6, 1210 )BAL 

1210  FORMAT(’  Balance  check  as  column  water  vol.  “’.F12.7,’  X’/) 

C 

C 

IF ( IOUT . EQ . 0 )GOTO  306 

WRITE (6. 1220 )EVAPI , PPTT.CINFIL , CUMDRN 

1220  FORMAT('  Cumulative  evaporation  ■  *,F12.8/ 

&’  Cumulative  precipitation  ■  ’,F8.4/ 

Cumulative  infiltration  “  '.F10.6/ 

&'  Cumulative  drainage  “  ’.F10.6/) 

306  IF (DETAIN . EQ . DETCAP)THEN 

WRITE (6, 1222) 

1222  FORMATt’  Detention  capacity  exceeded') 

WRITE<6. 1230 )RTOT,RTOT/ .0254, T 

1230  FORMATf  Runoff  total  in  the  last  period ’, F10 . 7 , 2X , 'm' / 

&  '  Runoff  total  in  the  last  period ’, F10 . 7 , 2X ,’ ins ' . 

S  F7 . 3/ ) 

ELSE 

WRITE (C , 1221 ) DETAIN 

1221  FORMAT ( ’  Surface  water  -  ’.F10.6) 

WRITE(6, 1226) 

1226  FORMAT( '  No  runoff) 

END  IF 


U69  C 

1270  C  CREATION  OF  ARRAY  DATA 

1271  C  . . . . 

1272  C 

1273  C  Runoff  is  recorded  in  errey  WDATA 

1274  C  The  runoff  for  each  soil  column  is  weighted  according  to  the 

1275  C  percentage  area  which  it  occupies  in  the  catchment  area 

1276  IWWW-W 
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WDATA(tt*1,IWWW)-(RT0T/  . 0254 )*( IPCAREA/ 100 .  ) 


rm-T  m  i  j. 


9995  CONTINUE 
C 

C  End  of  simulation  of  single  soil  column,  it  more  than  one.  then  return  to 
C  to  the  beginning  of  this  subroutine  to  repeat  for  next  soil  column 
C 

34543  CONTINUE 

DO  76567  I-l,(**f 

C  Sum  the  weighted  runoff  for  each  soil  column  to  derive  total  runoff 
C  passed  back  to  CMPHYD  as  DATA 
CUMDATA-0 . 

DO  54345  J-l.NSCOL 

CUMD  ATA-WDATA  <  I ,  J )  +CUMD  AT  A 
54  34  5  CONTINUE 

DATA { I j-CUMDATA 
76567  CONTINUE 


SUBROUTINE  HYDCON ( X , SATCON , SR . Z , Y ) 


C  This  subroutine  calculates  hydraulic  conductivity  for  each  layer 
C  from  the  given  soil  moisture  characteristic  curve. 

C  Uses  the  Millington  and  Quirk  method 
C 

DIMENSION  X(20 ) , Y(20 ) , ZC20 ) 

DO  845  1-1,20 

IIJ-20-I+1 

XII-X(IIJ) 


DO  846  J-1,20 

JF-20-J+1 

YJJ-Y(JF) 

BOTS-  ( ( 2*  J  -  1 )  *Y  J  J**  < - 2 ) ) +B0TS 


DO  847  J-II.20 

JF-20-J+1 

YJJ-Y(JF) 

847  TOPS-((2*J+l-2*I)*YJJ‘*(-2))+TOPS 

JT-20-I+1 

845  Z(JT)-SATCON*(X(II)/SR)*TOPS/BOTS 


SUBROUTINE  TW0(NA, NB , THETA ,X . SWP, Y ,G, HPOT, DEPTH ,GZ , COND , Z) 
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1335  C 

1337  C 

1338  C  This  subroutine  calculates  soil  water  pressure,  hydraulic  potential 

1339  C  and  hydraulic  conductivity  for  each  cell  as  conditions  change 

1340  C  during  simulation. 

1341 

1342  DIMENSION  THETA (20 ) ,X(20 ) , SWP(20 ) , Y(20 ) ,G(20 ) , SPOT (20 ) , 

1343  &DEPTH(20),GZ(20)  ,COND(20.'  ,Z(20) 

1344  DO  15  I-NA.NB 

1345  DO  16  J-1.19 

1346  IF(THETA( I 1 .GE ,X( J) . AND . THETA( I )  LT ,X( J+l ) )SWP(I )-Y ( J)+G( J)* 

1347  &  ( THETA ( I )-X( J ) ) 

1348  16  CONTINUE 

1349  HPOT ( I )-SWP(  I ) -DEPTH ( I ) 

1350  DO  17  J-1,19 

1351  IF ( THETA ( I ) ,GT.X( J) . AND . THETA ( I).LE.X(J+1) )COND( I)=Z(J)+GZ(J)* 

1352  &  ( THETA ( I ) -X( J ) } 

1353  17  CONTINUE 

1354  15  CONTINUE 

1355  RETURN 

1356  END 

1357  C 

1358  C 

1360  C 

1361  SUBROUTINE  GRAD(G,GZ, Y,X , Z) 

1362  C 

1364  C 

1365  C  This  subroutine  calculates  the  gradients  of  the  suction-moisture 

1366  C  and  hydraulic  conductivity-moisture  curves. 

1367  C 

1368  DIMENSION  G(20 ) ,GZ(20 ) , Y(20 > ,X(20 ) , Z(20 ) 

1369  DO  261  1-1,19 

1370  G(I)-(Y(I+1)-Y(I))/(X(I+1)-X(I)) 

1371  261  GZ(I)-(Z(I+1)-Z(I))/(X(I+1)-X(I)) 

1372  RETURN 

1373  END 

1374  C 

1375  C 

1377  C 

13^8  SUBROUTINE  SMCURV(SR,NQ,AX,Y,XNEW, YNEW.SCURV) 

1379  C 

1380  C  1  ■  ’  ■  11  — — - — 

1381  C 

1382  C  Generates  a  stochastic  suction  moisture  curve  to  be  fed  into 

1383  C  soil  moisture  model 

1384  C 

1385  DOUBLE  PRECISION  G05DDF 

1386  DOUBLE  PRECISION  AX.SCURV 

1387  DIMENSION  AX(20 ) ,X( 20 ) ,XNEW(20 ) , YNEW(20 ) ,G(20 ) , Y(20 ) 

1388  C 

1389  C  Determine  the  stochastic  values  of  mois  *  re 

1390  C 

1391  X  ( 1  )KJ0  5DDF  ( AX  ( 1 ) ,  SCURV ) 

1392  IF(X( 1 ) . LT . 0 . )X( 1 )-0 . 001 
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1393  C 

1394  DO  100  1-2, NQ 

1395  X(I)^05DDF(AX(I)  ,SCURV) 

1396  100  IF(X(I).LE.X(I-1))X(I)-X (1-15+0. 001 

1397  IF (X(NQ) ,GE.SR5SR-X(NQ5+0.001 

1398  C 

1399  C  Calculate  gradients  of  this  new  suction-moisture  curve 

1400  c 

1401  NNO-HQ-1 

1402  DO  200  I-l.NNQ 

1403  200  G(I)-(Y(I+l)-Ya))/(X(I  +  l)-X(I)) 

1404  C 

1405  C  Calculate  max  and  min  moisture  values,  and  determine  the  size  of 

1406  C  equal  intervals. 

1407  C 

1408  XMAX-RMAX  ( X ,  NQ  5 

1409  XMIN-RMIN(X,NQ) 

1410  XINT-(XMAX-XMIN)/19. 

1411  C 

1412  C  Determine  the  new  values  of  moisture-equal  intervals 

1413  C 

1414  XNEW(  1 5-XMIN 

1415  DO  300  1-2,19 

1416  300  XNEW(  1 5-XNEW( 1  )+(XINT+ (I- 1 ) ) 

1417  XNEW(20)-XMAX 

1418  C 

1419  C  Determine  the  associated  new  values  of  suction 

1420  C 

1421  DO  350  1-1,19 

1422  DO  400  J-l.NNQ 

1423  IF(XHEW(I) .GE.X(J) . AND . XNEW( 1 5 . LT ,X( J+l 5 5 

1424  &  YNEW(  I  )-Y(  J5+GC  J)  +  (XNEW(  I  )-X(  J) ) 

1425  400  CONTINUE 

1426  350  CONTINUE 

1427  YNEW(20)-Y(NQ) 

1428  C 

1429  RETURN 

1430  END 

1431  C 

1432  C 

1433  C  -  1  ■  1  ——————————— 

1434  C 

1435  FUNCTION  RMAX  (X,NQ) 

1436  C 

1437  C  - - 

1438  C 

1439  C  Determines  the  maximum  real  in  an  array 

1440  C 

1441  DIMENSION  X(NQ) 

1442  RMAX-X ( 1 5 

1443  DO  10  1-2, NQ 

1444  10  IF ( X ( I )  GT  .RMAX 5 RMAX-X ( I ) 

1445  C 

1 1  46  RETURN 

1447  END 

1448  C 

1449  C 

14  50  C  —  ■  ■' — - '■ "  .  . — — - - - 
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1451 

1452  FUNCTION  RMIN(X,NQ) 

1453  C 

1455  C 

1456  C  Determines  minimum  real  In  an  array 

1457  DIMENSION  X(NQ) 

1458  RMIN-X(l) 

1459  DO  10  1-2, NQ 

1460  10  IF(X(I).LT.RMIN)RMIN-X(I) 

1461  C 

1462  RETURN 

1463  END 

1464  C 

1465  C 

1467  C 

1468  SUBROUTINE  PRTHYD 

1469  C 

1471  C 

14  72  C  THIS  SUBROUTINE  PRINTS  THE  CORRDINATES  OF  A  HYDROGRAPH 

1473  C  CONVERTS  Q  HYDROGRAPH  TO  STAGE  HYDROGRAPH  FOR  SPECIFIED  X-SECTION 

1474  C 

1475  C  ID-Q  HYD  INPUT 

1476  C  IDR-CROSS  SECTION  ID 

14  77  C  HYDROGRAPH  FORM 

1478  C  NPK-2  OR  GREATOR  FOR  CONVERSION  Q/STAGE 

1479  C  NPK-1  Q  HYD 

1480  C  NPK-0  Q  PEAK  AND  VOLUME  ONLY 

1481  C  IN  -  FORMAT  OF  OUTPUT 

1482  C  IN  -0  REGULAR  FORMAT 

1483  C  IN-1  PRINT  DISCHARGE  ONLY  IN  SINGLE  ENTRY  PER  LINE 

1484  C 

1485  CGPMON/BLOCK2/OCFS(300,6)  ,DATA(310) , RAIN (300)  ,ROIN(6) , 

1486  &IENDC6) , DA(6) , DT(6 ) , PEAK ( 6 ) , TIME .KCODE , ICODE 

1487  C 

1488  COMMON/BLOCK3/A(20,70) ,0(20,70) ,DEEP(20, 70) ,DP( 20), 

1489  &SCFS(20 ),C(20,6),DIST(6), SEGN (6) , ISG( 6) , PERQ(20 , 70 ) , 

1490  &TQC20.6) ,CC(20) , LL(6) , INRC.LRC 

1491  C 

1492  DIMENSION  DUPMY(300 ) , S(300 , 6 ) , PEAKS 

1493  DIMENSION  ISG(6) 

1494  C  New  variables  used 

1495  C  S  stage  equivalent  of  OCFS 

1496  C  PEAKS  peak  stage  (equivalent  of  PEAK) 

1497  C 

1498  ID-OATA(l) 

1499  NPK-DATA(2) 

1500  IDR-DATA( 3 ) 

1501  IN-DATA( 4 ) 

1502  H-IEND(ID) 

1503  WRITE(6,40)ID,NPK 

1504  TIME1-0 

1505  IF(NPK.LT.  1)GOTO  32 

1506  IF(NPK.LT.2)GOTO  2 

1507  C  CONVERSION  TO  STAGE  HYDROGRAPH 

1508  C  CHECK  RATING  CURVE  ENTERED 
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1509 

1510 

1511 

1512 

1513  C 

1514 

1515  C 

1516 

1517 

1518  50 

1519 

1520 

1521 

1522  C 

1523  51 

1524  7 

1525 

1526  6 

1527 

1528 

1529 

1530 

1531 

1532 

1533  4 

1534 

1535 

1536 

1537  C 

1538 

1539 

1540  3 

1541  C 

1542  2 

1543 

1544  8 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554  10 

1555 

1556 

1557  38 

1558 

1559 

1560 

1561 

1562  43 

1563 

1564 

1565 

1566 


IFdDR.EQ.  0)THEN 

WRITE! 6,*) ’NEED  TO  ENTER  RATING  CURVE  ID’ 

RETURN 

ENDIF 

Checkk  if  segment  or  cross-section 

IF(IDR . GT . 6)  GOTO  51 

Check  if  multiple  routing  invoked 

IF(TQ(20.IDR) . GT . 0 ) THEN 

DO  50  1-1,20 

Q!I,IDR>-TO!I.IDR) 

ENDIF 
JJ-IDR 
GOTO  7 

Use  segment  to  convert 

JJ-IDR/10 

DO  3  I-l.M 

J-l 

IF(OCFS(I , ID) . LE ,Q( J , IDR) )GOTO  4 
J-J+l 

IF( J .GT . 20 ) THEN 

WRITE! 6 , * ) 'RATING  CURVE  EXCEEDED,  STOPPED’ 

RETURN 
ENDIF 
GOTO  6 

IF!OCFS(I , ID) .EQ.QfJ, IDR) )THEN 
S! I , ID )-C( J , JJ) 

GOTO  3 
ENDIF 

INTERPOLATE 

S!I,ID)-C!J,JJ)-!!C!J.JJ)-C(J-l,JJ))*!Q!J,IDR)-OCFS(I.ID)>/ 
4(Q( J , IDR)-Q( J-l , IDR) ) ) 

CONTINUE 
TIME  ARRAY 
DO  8  I-l.M 
DATA! I )-TIMEl 
TIME1-TIME1+DT ! ID ) 

J-0 

M4-44+4 

M5-*!4/5 

IF!NPK.LT.2)GOTO  27 
IF ! ICODE . EQ . 0 )THEN 
WRITE! 6 , 9 ) 

GOTO  10 
ENDIF 

WRITE(6, 11) 

IF! IN  GT . 0 )THEN 
IFIICODE . EQ. 0 ) THEN 
DO  38  I-1 ,M 
WRITE(6,28)S(I,ID) 

RETURN 

ENDIF 

DO  43  I-l.M 

S(I,ID)-S!I,ID)*0.3048 

WRITE(6,28)S!I,ID) 

RETURN 

ENDIF 

IF! ICOOE . GT . 0 )THEN 
DO  45  I-l.M 
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1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 

1594 

1595 

1596 

1597 

1598 

1599 

1600 
1601 
1602 

1603 

1604 

1605 

1606 

1607 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

1617 

1618 

1619 

1620 
1621 
1622 

1623 

1624 


45  S(I,ID)-S(I,ID)*0.3048 

ENDIF 
39  J-J+l 

WRITE (6 , 30 ) (DATA( I ) ,S(I , ID) . I-J.M.M5) 

IF(J-M5)39, 13, 13 
13  ROINl-ROIN(ID) 

DO  16  1-1,20 

IF(Q( I . I DR ) -PEAK ( ID))16,17,17 

16  CONTINUE 

17  IF(Q(I,IDR).EQ. PEAK ( ID ) )THEN 
PEAKS-C(I,JJ) 

GOTO  18 
ENDIF 

PEAKS-C<I, JJ)-(<C(I,JJ)-C(I-1.JJ))*(Q(I,IDR)-PEAKCID>)/ 

&(Q( I , IDR)-Q(I-1, I DR) ) ) 

18  IF ( ICODE . EQ. 0 )THEN 
WRITEC6, 14 )ROINl , PEAKS 
RETURN 

ENDIF 

PEAKS- PEAKS *0 , 3048 
ROINl-ROIN( ID >*0.0283168 
WRITE ( 6 , 1 5 )ROIN 1 , PEAKS 
RETURN 

C  DISCHARGE  HYDROGRAPHS 

27  IF(  ICODE.  EQ.DTHEN 

C  METRIC 

WRITE (6 , 21 ) 

DO  23  I-l.M 

23  DUfWY(I)-OCFSCI,ID)*0. 0283168 

PEAK1-PEAK( ID )*0 . 0283 168 
ROINl-ROINt ID >*0.0283168 
GOTO  20 
ENDIF 

C  IMPERIAL 

19  WRITEI6.25) 

DO  26  I-l.M 

26  DUPMY  ( I ) -OCFS  ( I  .ID) 

PEAKl-PEAK(ID) 

ROIN1-ROIN ( ID ) 

20  IFCIN.GT.OJTHEN 
DO  29  I-l.M 

29  WRITE(6,28)DUPMY(I) 

RETURN 

ENDIF 

31  J-J+l 

WRITE(6,30)(DATA(I) , DUPMY ( I ) . I-J ,M,M5 ) 

IF ( J-M5  >31,32,32 

32  IF ( ICODE. NE.OJGOTO  34 
ROINl-ROIN(ID) 

PEAK  1- PEAK ( ID  ) 

WRITE(6,35)R0IN1, PEAK1 
RETURN 

34  ROIN1-ROIN(ID)*0, 0283168 

PEAK 1-PEAK( ID ) *0 . 0283 168 
WRITE! 6 , 36 )R0IN1 , PEAK1 
RETURN 

21  FORMAT (1 OX, "TIME" . 6X. "  FLOW . 1 IX. "TIME" . 6X. "  FLOW" , 1 IX , "TIME" , 
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1625 

1626 

1627 

1628 

25 

1629 

1630 

1631 

1632 

30 

1633 

40 

1634 

36 

1635 

1636 

35 

1637 

1638 

14 

1639 

1640 

15 

1641 

1642 

11 

1643 

1644 

1645 

1646 

9 

1647 

1648 

1649 

1650 

28 

1651 

1652 

C 

1653 

C 

1654 

C 

1655 

C 

1656 

1657 

C 

1658 

C 

1659 

C 

1660 

c 

1661 

c 

1662 

1663 

1664 

c 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

c 

1672 

1673 

c 

1674 

1 

1675 

1676 

2 

1677 

3 

1678 

1679 

4 

1680 

c 

1681 

c 

1682 

5 

&6X . "FLOW" , 1 IX , "TIME" , 6X , "FLOW" , 1 IX , "TIME” . 6X , "FLOW" / 1 IX , "HRS" . 
&7X,"  MS" , 12X , "HRS" , 7 X , "  MS" , 12X , "HRS" , 7X , "  MS" , 12X , "HRS" , 

&7X , "  MS" , 12X , "HRS" , 7X , "  MS") 

FORMAT ( 10X , "TIME" ,  6X, "  FLOW" , 11X, "TIME" , 6X, "  FLOW" , 11X . "TIME" . 
&6X, "FLOW", 11X, "TIME", 6X, "FLOW", 11X, “TIME", 6X, "FLOW"/ 11X, "HRS", 
&7X , "  CFS  " , 10X, "HRS" , 7X, "  CFS  " , 10X, "HRS" , 7X, "  CFS  ",10X,"HRS", 
&7X."  CFS  " , 10X, "HRS" ,  7X,  "  CFS  ") 

FORMAT  <5(5X,F10.3,F10.3)) 

FORMAT (  'PRINT  HYD ' , T21 . ’ ID- ' , II ,T29, ’ NPK-’ . II ) 

FORMAT (1H0,9X, "HYDROGRAPH  VOLUME-" . F20 . 0 , "  CUMEC  "/10X,"PEAK 
&DISCHARGE  RATE  -" . F10 . 0 . "CMS"/// ) 

FORMAT  (1H0,9X.  "HYDROGRAPH  VOLUME-"  ,F20 . 0  ,  “  CF  "/10X,"PEAK 
&DISCHARGE  RATE-" ,F10 . 0 , "CFS"/ // ) 

FORMAT  (1H0,9X,  "HYDROGRAPH  VOLUME-"  ,  F20 . 0  ,  “  CF  "/10X,"PEAK 
&ELEVATION  -".F10.0,”  FEET"///) 

FORMAT ( 1H0 , 9X , " HYDROGRAPH  VOLUME- ". F20 . 0 , " CUMECS " / 1 OX , " PEAK 
&ELEVATION  -". F10 . 0 , "METRES"/// ) 

FORMAT ( 10X, "TIME" , 6X , "ELEV" , 11X, "TIME" , 6X , "ELEV" , 1 IX , "TIME" , 

&  6X . "ELEV" , 11X , "TIME" . 6X , "ELEV" , 1 IX , "TIME" , 6X . "ELEV" . / 11X , "HRS" , 
&  7X,"M  " , 12X , "HRS" , 7X , "M  " , 12X , "HRS" , 7X , "M  " , 12X , "HRS" , 

&  7X,"M  ",12X,"HRS",7X,"M  ") 

FORMAT ( 10X , "TIME" . 6X . "ELEV" . 11X , "TIME" , 6X , "ELEV" . 1 IX . "TIME" , 

&  6X . "ELEV" , 11X . "TIME" . 6X . "ELEV" , 11X , "TIME" , 6X , "ELEV” , / 11X . "HRS" , 
&  7X . "FT" , 12X . "HRS" , 7X , "FT" , 12X . "HRS" , 7X , "FT" , 12X , "HRS” , 

&  7X, "FT" , 12X, "HRS" , 7X , "FT" ) 

FORMAT (F10 . 3  ) 

END 


SUBROUTINE  HPLOT 


THIS  SUBROUTINE  PLOTS  EITHER  1  OR  2  HYDROGRAPBS  ON  A  SET  OF  AXIS 

COPMDN/BLOCK2/OCFS(300,6).DATA(310).RAIN(300),ROIN(6). 

&IEND(6) , DA(6 ) , DT(6 ) , PEAK (6 ) , TIME , KCODE , ICODE 

DIMENSION  CFS (300) 

IDI-DATA(l) 

ID2-DATAC2) 

DATA  ZERO,  PLUS,  BLANK,  DASH,  DOT/ ’ 0 '  ‘.'-•.‘.‘I 

MAX-121 

J-l 

ARE  THERE  1  OR  2  HYDROGRAPHS 
IF  (ID2)  1,1,2 

DETERMINE  HIGHEST  PEAK  IF  2  HYDROGRAPHS 
QMAX-PEAX ( ID1 ) 

GO  TO  1* 

IF  (PEAK( ID1 ) -PEAK( ID2 ) )  3.3,4 
QMAX-PEAX  (ID2) 

GO  TO  5 
QMAX-FEAK(IDl) 

IF  2  HYDROGRAPHS  DETERMINE  LARGEST  DT  AND  INTERPOLATE  OTHER 
HYDROGRAPH  IF  NECESSARY 
IF  (DTCIDl ) -DT( ID2 ) )  6,13,7 
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1683 

6 

L-ID1 

1684 

K-ID2 

1685 

GO  TO  8 

1686 

7 

L-ID2 

1687 

K-ID1 

1688 

8 

FMENDCL) 

1689 

TID-DT(K) 

1690 

TIDH-0 . 

1691 

DO  11  1-2, M 

1692 

TIDH-TIDH+DKL ) 

1693 

IF  (TID-TIDH)  10,9,11 

1694 

9 

J-J+l 

1695 

CFS(J)OCFS(I,L) 

1696 

TID-TID+DTCK) 

1697 

GO  TO  11 

1698 

10 

J-J+l 

1699 

CFS(J)-OCFS(I-l,L)  +  <  CTID-TIDH+DTCL) ) /DTCL) )+ (OCFSC I , L) 

1700 

&) 

1701 

TIE>“TID+DT  CK) 

1702 

11 

CONTINUE 

1703 

IEND(L )-J 

1704 

DT(L)-DT(K) 

1705 

DO  12  1-2, J 

1706 

12 

OCFSa.L)-CFS(I) 

1707 

13 

IF  ( IEND( ID1 ) -IENDC ID2 ) )  14.14,15 

1708 

14 

^IEND(IDl) 

1709 

GO  TO  16 

1710 

15 

M-1JND(ID2) 

1711 

16 

XM  -  M 

1712 

C 

DETERMINE  TIME  SCALE 

1713 

XSCL  -  XM  /  120. 

1714 

YSCL-OMAX/50. 

1715 

C 

PLOT  HYDROGRAPBS 

1716 

DO  20  1-1  .MAX 

1717 

20 

CFSC I )-DASH 

1718 

IF( ICODE . EQ. 0 )GO  TO  49 

1719 

WRITE(6. 50) 

1720 

50 

FORMATCT2,  "FLOW  RATE  (CMS)'  ) 

1721 

QMAX1-QMAX+0. 02832 

1722 

WRITEC6, 41 JQMAX1 . DOT , (CFSC I ) . 1-1 ,MAX ) , DOT 

1723 

GO  TO  51 

1724 

49 

WRITE(6 , 48 ) 

1725 

48 

FORMAT (T2, 'FLOW  RATE  (CFS)') 

1726 

WRITE ( 6 , 4 1 jqMAX , DOT , (CFS ( I ) , I- 1 , MAX ) , DOT 

1727 

51 

Ql-QMAX 

1728 

Jl-10 

1729 

DO  37  J-1.50 

1730 

IF  (J-Jl)  23,21,23 

1731 

21 

DO  22  I-l.MAX 

1732 

22 

CFSC I J-DASH 

1733 

GO  TO  25 

1734 

23 

DO  24  I-l.MAX 

1735 

24 

CFS ( I ) -BLANK 

1736 

25 

Q2K31-YSCL 

1737 

DO  28  1-2, M 

1738 

IF  (OCFS(I.IDl)-Ql)  26,27,28 

1739 

26 

IF  (OCFSC I ,  I D 1 ) - 02 )  28,28,27 

1740 

27 

XI  -  I 

181 


17*1 

17*2 

17*3 

17** 

17*5 

17*6 

17*7 

17*8 

17*9 

1750 

1751 

1752 

1753 
175* 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 

1763 
176* 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 
177* 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 
178* 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 
179* 

1795 

1796 

1797 

1798 


K  -  XI  /  XSCL  +  1. 

CFSOC1-ZERO 

28  CONTINUE 

WRITE  (6,**)  DOT , (CFS( I ) , 1-1 .MAX ) , DOT 
IF  (ID2)  3*, 3*, 29 

29  DO  16  I  -  1,  MAX 

18  CFS(I)  -  BLANK 

DO  33  I-l.M 

IF  (OCFS(I,ID2)-Ql)  30,31,33 

30  IF  (OCFS(I,ID2)-Q2)  33,33,31 

31  XI  -  I 

K  -  XI  /  XSCL  +  1. 

CFS(K)-PLUS 

33  CONTINUE 

WRITE  (6,42)  (CFS(I).I-l.MAX) 

34  IF  (J-Jl)  36,35,36 

35  Jl-Jl+10 

IF ( ICODE . EQ. 0 )GO  TO  52 
QD-O2*0 . 02832 
WRITEC6 , 43 )QD 
GO  TO  36 

52  WRITE(6 , 43 )Q2 

36  01-02 

37  CONTINUE 
CFS( 1)-TIME 

DTT-DT ( ID  1 ) * ( XM  -  1.)  /  12. 

C  PUT  TIME  ARRAY  IN  CFS  AND  WRITE  TIME  SCALE 

DO  38  1-2,13 

36  CFS( I )-CFS( I- 1 )+DTT 

WRITE  (6,45)  (CFS(I), 1-1,13) 

WRITE  (6,46) 

RETURN 

C 

41  FORMAT ( IX,  F7 . 0 , 123A1 ) 

42  FORMAT ( 1H+ ,  8X ,  121A1 ) 

43  FORMAT  (1H+.F7.0) 

44  FORMAT  ( 8X,  123A1) 

45  FORMAT (T3 , 13F10 . 2 ) 

46  FORMAT(*9X, 'TIME  HOURS'///) 

END 

C 

C 

C 

SUBROUTINE  ADHYD 
C 

C 

C  THIS  SUBROUTINE  ADDS  "WO  HYDROGRAPHS. 

C 

CCPMDN/BLOCK2/OCFS(  300 , 6 ) ,  DATA(  3 10 ) ,  RAIN ( 300 )  ,ROIN(6 ) , 
S.IEND(6 ) ,  DA(6  )  ,DT(  6) ,  P£AK(  6) ,  TIME  .KCODE ,  ICODE 

ID-DATA(l) 

NHD-DATA(2) 

ID1-DATA(3) 

ID2-DATA( * ) 

KK-0 
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1799 

C 

CHECK  ARRAYS  ARE  NOT  EMPTY 

1800 

IFdENDdDl)  .EQ.O.OR. IEND( ID2 ) . EQ . 0}THEN 

1801 

JRITEC6, 101) 

1802 

IF(IENDUDl)  ,EQ.0)THEN 

1803 

K-ID2 

1804 

GOTO  29 

1805 

END  IF 

1806 

K-ID1 

1807 

29 

DO  30  I-l.IEND(K) 

1808 

30 

OCFS(I,ID)-OCFS(I.K) 

1809 

PEAKdD)-PEAX(K) 

1810 

ROINdD)-ROIN(K) 

1811 

DAdD)-DA(K) 

1812 

IENDdD)-IEND(K) 

1813 

DTdD)-DT(K) 

1814 

GOTO  27 

1815 

ENDIF 

1816 

IF(DT(ID1) ,EQ.DT(ID2) )GOTO  31 

1817 

IFdD.NE.  ID1  .AND .  ID .  NE  .  ID2  )GOTO  31 

1818 

C 

DANGER  OF  CONFUSION  IN  DT.  ALTER  ID  TO  KK 

1819 

32 

DO  33  KX-1,6 

1820 

IF(KK.EQ.IDl)GOTO  33 

1821 

IF (KK . EQ. ID2)GOTO  33 

1822 

GOTO  34 

1823 

33 

CONTINUE 

1824 

34 

ID-KK 

1825 

31 

PEAK (ID)  -  1. 

1826 

C 

MAKE  TIME  INCREMENTS  EQUAL  IF  NOT  EQUAL.  USE  SMALLER  INCREMENT 

1827 

IF  <DT(ID1)-DT(ID2))  1,3,2 

1828 

1 

DT(ID)-DT(ID1' 

1829 

L-ID1 

1830 

K-ID2 

1831 

GO  TO  6 

1832 

2 

DT(ID)-DT(ID2) 

1833 

L-ID2 

1834 

K-ID1 

1835 

GO  TO  6 

1836 

3 

DTdD)-DT(IDl) 

1837 

IF  (IEND(ID1)-IEND(ID2) )  4,4,5 

1838 

4 

M3-IEND(ID1) 

1839 

K1-ID2 

1840 

IEND(ID)-IEND(ID2) 

1841 

GO  TO  18 

1842 

5 

M3-IEND(ID2) 

1843 

K1-ID1 

1844 

IEND(ID)-IEND(ID1) 

1845 

GO  TO  18 

1846 

C 

DETERMINE  DURATIONS  OF  FLOW 

1847 

6 

XIEHD1-IEND(ID1)-1 

1848 

XIEND2-IEND(ID2)-1 

1849 

DUR1-XIEND1*DT(ID1) 

1850 

DUR2-XIEND2*DT(ID2) 

1851 

IF  (DUR1-DUR2)  7,8,8 

1852 

7 

IEND(ID)-DUR2/DT(ID)+1 . 

1853 

M3-DUR1/DT(ID)+1. 

1854 

K1-ID2 

1855 

GO  TO  9 

1856 

8 

IEND(ID)-DUR1/DT(ID)+1. 

183 


1857 

1858 

1859 

9 

1860 

10 

1861 

11 

1862 

1863 

C 

1864 

1865 

1866 

1867 

1868 

12 

1869 

13 

1870 

1871 

1872 

1873 

14 

1874 

1875 

1876 

1877 

1878 

15 

1879 

16 

1880 

1881 

17 

1882 

18 

1883 

1884 

C 

1885 

C 

1886 

1887 

1888 

1889 

1890 

1891 

1892 

1893 

19 

1894 

20 

1895 

1896 

1897 

21 

1898 

22 

1899 

23 

1900 

1901 

1902 

24 

1903 

25 

1904 

27 

1905 

C 

1906 

28 

1907 

1908 

101 

1909 

1910 

C 

1911 

1912 

C 

1913 

C 

1914 

M3-DUR2/DT(ID)+1. 

K1-ID1 

IF  (IEND(ID)-300)  11,11,10 

IEND(ID)-300 

M2-IENDOC) 

J-l 

INTERPOLATE  ONE  HYDROGRAPH  IF  NECESSARY 
TIDH-0 . 

TID-DT(ID) 

DO  15  1-2, M2 
TIDH-TIDH+DT(K) 

IF  (TIDH-TID)  15,13, 14 
J-J+l 

DATA  (J)OCFS(I,K) 

TID-TID+DT(ID) 

IF  (J-300)  15,16,16 
J-J+l 

DATA  <J)OCFS(I-1,K)  +  ((TID-TIDH+DT(K))/DT(K))*(OCFS(I,K)-OCFS(I-1, 
&K) ) 

TID-TID+DT ( ID ) 

IF  (J-300)  12,16,16 

CONTINUE 

IEND(K)«J 

DO  17  1-2,  J 

OCFS(I.K)-DATA(I) 

M-IEND(ID) 

RO  -  0. 

ADD  HYDROGRAPHS 
CONVERT  KK  TO  ID 
IF(KK.GT.O)THEN 
ID-DATA(l) 

DT(ID)-DT(L) 

END  IF 

DO  20  I-1.M3 

OCFS ( I . ID )-OCFS ( I . ID  1 ) +OCFS ( I , ID2 ) 

IF  (OCFS(I.ID)  -  PEAK(ID))  20,20,19 
PEAK(ID)  -  OCFS ( I , ID) 

RO  -  RO  +  OCFS(I.ID) 

DA(ID)-DA(ID1)+DA(ID2) 

IF  (PEAK(ID)  -  PEAK(Kl))  21,22,22 
PEAK(ID)  -  PEAK(Kl) 

IF  (M-M3 )  25,25,23 
M3  -  M3  +  1 
DO  2*  I  -  M3.M 
OCFS(I.ID)  -  OCFS  <I,K1) 

RO  -  RO  +  OCFS ( I , ID ) 

ROIN(ID)  -RO  *  DT(ID)*3600 
RETURN 

FORMAT (  'ADD  BYD ' , T21 , ‘ ID- ’ , I 1 , T29 , '  HYD  NO- ’ , 13 , T45 ,  '  ID  I-’, II, 
&T60 , ’ ID  II-' ,11) 

FORMAT (T10, 'ONE  HYDROGRAPH  BEING  ADDED  IS  ZERO’) 

END 


SUBROUTINE  SRC 
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1915  C 

1917  C 

1918  C  THIS  SUBROUTINE  STORES  AN  ELEVATION  -  END  AREA  -  FLOW  TABLE. 

1919  C 

1920  CC»CN/BLOCK2/OCFS(300,6) , DATA(310) ,RAIN( 300 ) ,ROIN(6) , 

1921  &IEND (6) , DA(6) ,DT(6) , PEAK (6 ) ,  TIME , KCODE , ICOD2 

1922  C 

1923  CO««N/BLOCK3/A(20, 70),  0(20,70)  ,DEEP(20,70)  ,DP(20) , 

1924  &SCFS{ 20 ) ,C(20,6) ,DIST(6) , SEGN(6 ) , ISG(6) . PERQ(  2.. , 70 ) , 

1925  &TQ(20,6) ,CC(20),LL(6) ,INRC,LRC 

1926  C 

1927  ID-DATA(l) 

1928  VS-DATA(2) 

1929  C  VALLEY  SECTION  NUMBER 

1930  C  REMAINING  DATA  ARE  ELEVATION,  AREA,  AND  FLOW  FOR  EACH  POINT  OF 

1931  C  THE  RATING  CURVE 

1932  IF  (KCODE .  EQ.  0  )GO  TO  2 

1933  J-3 

1934  DO  3  1-1.20 

1935  DATA( J)-DATA( J) /0 .3048 

1936  DATA(J+l)-DATA(J+l)/0.093 

1937  DATA(J+2)-DATA(J+2)/0. 02832 

1938  J-J+3 

1939  3  CON'r'"tE 

1940  2  EMIN-DATA(3) 

1941  J-3 

1942  DO  1  1-1,20 

1943  DEEP(I,ID)-DATA(J)-EMIN 

1944  A(I,ID)-DATA(J+1) 

1945  Q(  I ,  ID)-DATA(  J+2) 

1946  J-J+3 

1947  1  CONTINUE 

1948  RETURN 

1949  END 

1950  C 

1951  C 

1953  C 

1954  SUBROUTINE  CMFRC 

1955  C 

1056  C  —  . ..I....—  — — —————— 

1957  C 

1958  C  THIS  SUBROUTINE  COMPUTES  THE  DISCHARGE  END-AREA  ELEVATION 

1959  C  RELATIONSHIP  FOR  A  VALLEY  SECTION. 

1960  C 

1961  C  IF  MUTIPLE  ROUTING  INVOKED  - 

1962  C  COMPUTES  SEPARATE  RATING  CURVES  FOR  EACH  SEGMENT 

1963  C  ALSO  X  FLOW  AT  EACH  ELEVATION  FOR  SEPARATE  SEGMENTS 

1964  C 

1965  C  IF  MOMENTUM  EXCHANGE  INVOKED 

1966  C  COMPUTES  THE  RATING  CURVE  US'NG  REDEFINED  AREA  AND  WETTED 

1967  C  PERIMETER  CALCULATION  -  KNIGHT  TECHNIQUE 

1968  C  FOUR  OPTIONS 

1969  C 

1970  C 

1971  C 

1972  C 


NOTE  ---  MOMENTUM  EXCHANGE  REDEFINITIONS  USED  "ON-Y  ” 
FOR  OUT-OF-BANK  ELEVATIONS 
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1973 

C 

MULTIPLE  ROUTING  AND  MOMENTUM  EXCHANGE  OPERATES  INDEPENDANTLY 

1974 

C 

1975 

C»MON/BLOCK2/OCFS(300,6)  ,DATA(310)  ,RAIN(300)  ,ROIN(P) , 

1976 

&IENDC  6 ) , DA(6 ) , DT(6) , PEAX( 6 ) .TIME , KCODE , I CODE 

1977 

C 

1978 

C®M3N/BLOCK3/A(20 ,701,0(20,70) ,  DEEP  ( 20 , 70 ) ,  DP(20 ) , 

1979 

&SCFS(20),C(20,6),DIST(6),S£GN<6) ,ISG(6) , PERQC20 , 70 ) , 

1980 

&TQ(20,6),CC(20),LL(6),INRC,LRC 

1981 

DIMENSION  ft*1(6).W(6),XK(70) 

1982 

INTEGER  COUNT 

1983 

C 

198* 

C 

NEW  VARIABLES  USED 

1985 

C 

Hf+-1  LEFT  FLOODPLAIN  ADJACENT  TO  CHANNEL 

1986 

C 

2  CHANNEL 

1987 

c 

»t+“3  RIGHT  FLOODPLAIN  ADJACENT  TO  CHANNEL 

1988 

c 

W  WIDTH  OF  CHANNEL  SEGMENT 

1989 

c 

H  CHANNEL  BANKFULL  DEPTH  (WHERE  1DJACENT  SEGMENT  IS  INUNDATED) 

1990 

c 

XM  MINIMUM  ELEVATION  IN  SEGMENT 

1991 

c 

1992 

ID-DATA(l) 

1993 

c 

STORAGE  LOCATION  NUMBER.  (1-6) 

199* 

IT-DATAC2) 

1995 

c 

MOMENTUM  EXCHANGE  INCLUSION 

1996 

MR-DATAC3) 

1997 

c 

MULTIPLE  ROUTING  INCLUSION 

1998 

VS-DATA(*) 

1999 

c 

VALLEY  SECTION  IDENTIFICATION  NUMBER. 

2000 

NSEG-DATA(5) 

2001 

c 

NUMBER  OF  SEGMENTS  IN  THE  VALLEY  SECTION. 

2002 

IF (KCODE. EQ.05GOTO  1 

2003 

DATA(6)-DATA(6)/0.30*8 

200* 

DATA(  7  )-DATA(  7  J/0.3048 

200  : 

1 

ELO-DATA(6) 

2006 

LMAX«DATA(7) 

2007 

c 

MAXIMUM  ELEVATION  FOR  COMPUTATIONS. 

2008 

SLOPE 1*DATA ( 8 ) 

2009 

c 

CHANNEL  SLOPE. 

2010 

SLOPE2-DATA(9) 

2011 

c 

FLOODPLAIN  SLOPE. 

2012 

DIF-(EMAX-ELO)/lb 

2013 

C(l.ID)-ELO 

201* 

DO  2  1-2,20 

2015 

2 

C(I,ID)-C((I-1).ID,+D1F 

2016 

c 

SET  AREA.  AND  DISCHARGE  ARRAYS  -  0. 

2017 

DO  3  K-l.NSEG 

2018 

W(K)-0 

2019 

3 

Ht1(K)-0 

2020 

IF(MR ,GT . 0 . 0  5 THEN 

2021 

DO  *  1-1,20 

2022 

A(I , ID5-0 

2023 

* 

Q( I , ID5-0 

202* 

ELSE 

2025 

DO  5  J-10*ID+1, 10*ID*NSEG 

2026 

OO  5  1-1,20 

2027 

A( I , ID5-0 

2028 

0(1, J)-0 

2029 

TQd ,  ID5-0 

2030 

5 

PER0(I,J>-0 
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2031 

END  IF 

2032 

J-10 

2033 

COUNT-O 

2034 

C 

READ  N  VALUES  AND  SEGMENT  BORDER  POINTS. 

2035 

DO  6  I-l.NSEG 

2036 

SEGNU)-DATA(J) 

2037 

IF ( SEGN ( I ) . LT . 0 )  COUNT- 1 

2038 

IFCKCODE . NE. 0 )DATA( J+l ) -DATA (J+l ) /0 . 3048 

2039 

DIST(I)-DATA(J+1> 

2040 

6 

J-J+2 

2041 

IF(COUNT.EQ.O)WRITE{6,7) 

2042 

C 

REMAINING  DATA  ITEMS  ARE  DISTANCES  AND  ELEVATIONS 

2043 

IF (KCODE . EQ . 0 )GOTO  8 

2044 

DO  9  I-J.310 

2045 

9 

DATA  (I  )-DATA(  D/0.3048 

2046 

8 

JJJ-J 

2047 

DO  10  I-l.NSEG 

2048 

11 

J-J+2 

2049 

IF  (DATA( JJ-DIST (I) >11. 12. 12 

2050 

12 

ISG(I)  -J+l 

2051 

10 

CONTINUE 

2052 

C 

COMPUTE  CHANNEL  WIDTH 

2053 

IF(IT. LT.l. AND. COUNT. EQ. 1)WRITE<6, 13) 

2054 

IT-2 

2055 

IF  (COUNT.  EQ.  1 .  AND .  IT  .GT .  0)WRITE(6, 14)  IT 

2056 

J-10 

2057 

DO  15  K-l.NSEG 

2058 

SELEV-0 

2059 

IF (SEGN (K) ) 16, 17. 17 

2060 

17 

IFOC.EQ. 1JGOTO  21 

2061 

IF(SEGN(K-1)  )19, 18. 18 

2062 

18 

GOTO  15 

2063 

21 

IF(SEGN(K+1) )20, 15, 15 

2064 

C 

LEFT  HAND  FLOODPLAIN 

2065 

20 

rt«(K)-l 

2066 

GOTO  15 

2067 

C 

CHANNEL 

2068 

16 

IF(K.EQ.  1  .OR.K.EQ  .NSEG)THEN 

2069 

WRITEt  6 , 70) 

2070 

IT-2 

2071 

GOTO  68 

2072 

END  IF 

2073 

W(K)-(DATA(ISG(K)-l)-DATA(ISG(K-l)-l>)/2 

2074 

t*M(K)-2 

2075 

GOTO  15 

2076 

C 

RIGHT  HAND  FLOODPLAIN 

2077 

19 

t*H(K)-3 

2078 

15 

CONTINUE 

2079 

C 

COMPUTE  DISCHARGES  AND  END  AREAS  FOR  EACH  SEGMENT 

2080 

68 

DO  22  K-l.NSEG 

2081 

J-JJJ 

2082 

JJJ1-JJJ+1 

2083 

IF  (SEGN(K) )  23.23,24 

2084 

23 

SLOPE-SLOPE 1 

2085 

GO  TO  25 

2086 

24 

SLOPE-SLOPE2 

2087 

25 

SLPN-1 . 486+SLOPE** . 5 

2088 

C 

COMPUTE  AREA  AND  DISCHARGE  FOR  SEGMENT. 
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2089 

DO  26  1-2,20 

2090 

AA-0. 

2091 

P-0. 

2092 

J-JJJ-1 

2093 

DEP2-0 . 

2094 

27 

J-J+2 

2095 

IF  ( J-ISG(K) )  28,28,29 

2096 

29 

IF(AA-. 001)26, 26, 37 

2097 

28 

IF{DATA( J)-C( I , ID) )  32,27,27 

2098 

32 

DEP1-C(I,ID)-DATA(J) 

2099 

IF  (J-JJJ1)  33,33,34 

2100 

34 

XL“DATA(J-l)-DATA(J-3) 

2101 

DEP3-ABS ( DATA ( J- 2 ) - DATA ( J ) ) 

2102 

XL-XL+DEP1/DEP3 

2103 

35 

AA-AA+XL+CDEP1+DEP2 ) /2 . 

2104 

P-P+SQRT ( (DEP1-DEP2)**2+XL**2) 

2105 

33 

DEP2-DEP1 

2106 

J-J+2 

2107 

IF  ( J-ISG(K) )  36,36,37 

2108 

36 

IF  (DATA(J)-C(I.ID))  38,38,39 

2109 

38 

DEP1-C  ( I , ID ) -DATA ( J ) 

2110 

XL-DATAI J- 1 )  -DATA(  J-3 ) 

2111 

GOTO  35 

2112 

39 

DEP1-0 

2113 

XL-DATA  ( J- 1 )  -DATA  ( J-  3  ) 

2114 

DEP3-ABS ( DATA! J“2 ) -DATA! J ) ) 

2115 

XL-XL+DEP2/DEP3 

2116 

AA-AA+XL* (DEP1+DEP2 )  /2 . 

2117 

P— P+SQRT ( ( DEP1 -DEP2 ) ++2+XL* +2 ) 

2118 

DEP2-0 . 

2119 

GOTO  27 

2120 

C 

CHECK  IF  MOMENTUM  EXCHANGE  INVOKED 

2121 

c 

CHECK  IF  OUT-OF-BANK 

2122 

37 

IF(W*1(K)  ,LT .  l)GOTO  40 

2123 

IF(»*i<K).EQ.l)GOTO  41 

2124 

IF(M*KK).EQ.3)GOTO  42 

2125 

C 

CHANNEL 

2126 

c 

CHECK  OUT-OF-BANK 

2127 

IF(C(I , ID) . LE . DATA(ISG(K) ) . AND .C(I , 

2128 

AID ). LE . DATA ( ISGIK- 1 )) JG0T04 0 

2129 

H-(DATA( ISG(K) )+DATA< ISG(K-l) ) )/2-ELO 

2130 

IF(IT.LE.2)GOTO  43 

2131 

c 

AREA  METHOD  3  AND  4 

2132 

AA— AA/2+(W(K)*H) 

2133 

43 

IFfIT.EQ. 1 .OR. IT. EQ. 3 )THEN 

2134 

C 

WETTED  PERIMETER  METHOD  1  AND  3 

2135 

P-P- (2*(C( I , ID)-C< (1-1 ) , ID) ) )+2*H 

2136 

END  IF 

2137 

IF(IT.EQ.4)THEN 

2138 

C 

WETTED  PERIMETER  METHOD 4 

2139 

P-P+(2*((C(I,ID)-C((I-1).ID))**2+W(K)**2)**0.5) 

2140 

ENDIF 

2141 

GOTO  40 

2142 

c 

LEFT  HAND  FLOODPLAIN 

2143 

41 

L-K+l 

2144 

GOTO  44 

2145 

c 

RIGHT  HAND  FLOODPLAIN 

2146 

42 

L-K-l 

188 


21*7 

** 

IF ( IT . LT . 3 )GOTO  *5 

21*8 

AA-AA+((C(I,ID)-C<(I-l),ID))*W(L>/2) 

21*9 

*5 

IF( IT . EQ . 2 ) THEN 

2150 

P-P+(C(I,ID)-C(<I-1),ID)) 

2151 

END  IF 

2152 

*0 

R-AA/P 

2153 

C 

REMOVED  ALOGGRITHM  BELOW 

215* 

C 

SGN-SEGN (K)  -  ,0025*R 

2155 

IFCSEGN(K) . LT.O . OJTHEN 

2156 

SGN— SEGN(K) 

2157 

GOTO  *6 

2158 

END  IF 

2159 

SGN-SEGN(K) 

2160 

*6 

IFCMR.LT. 1)  GOTO  47 

2161 

C 

COMPUTE  SEPARATE  R. CURVES  FOR  EACH  SEGMENT 

2162 

II-10*ID+K 

2163 

QCI . II )-Q( I , II )+AA*R** . 6667-SLPN/SGN 

216* 

AC  I , II )-A(I , II )+AA 

2165 

GOTO  26 

2166 

C 

ADD  DISCHARGES  AND  AREAS  FOR  ALL  SEGMENTS  TO  OBTAIN  TOTALS  FOR 

2167 

c 

VALLEY  SECTION. 

2168 

*7 

QCI . ID)-QC I , ID)+AA*R** . 66667-SLPN/SGN 

2169 

ACI.ID)-ACI.ID)+AA 

2170 

26 

CONTINUE 

2171 

JJJ-J-3 

2172 

22 

CONTINUE 

2173 

IF C ICODE . EQ . 0 )GO  TO  *8 

217* 

IFCMR.LT.  1)GOTO  *9 

2175 

C 

FIND  MIN  ELEV  IN  EACH  SEGMENT 

2176 

J-13+2-NSEG 

2177 

DO  50  M-l.NSEG 

2178 

IFCM.EQ. 1JTHEN 

2179 

XMC10*ID+M)-DATAC  ISGCM)) 

2180 

GOTO  51 

2181 

ENDIF 

2182 

XMC 10*ID+M)-DATAC ISGCM- 1 ) ) 

2183 

51 

IFC J .GT. ISGCM) )GOTO  50 

218* 

IFCDATAC J) .LT.XMC10*ID+M) )THEN 

2185 

XMC10*ID+M)-DATA(J) 

2186 

ENDIF 

2187 

J-J+2 

2188 

GOTO  51 

2189 

50 

CONTINUE 

2190 

DO  52  J-10*ID+1 , 10‘ID+NSEG 

2191 

WRITE(6,30)J 

2192 

DO  52  1-1.20 

2193 

Cl-CCI . ID)*0 . 30*8 

219* 

Al-ACI , J)*0 . 093 

2195 

Q1-QCI,J)*0. 02832 

2196 

DEEP(I.J)-CCI.ID)-XMCJ) 

2197 

IFCDEEPCI , J) .LT. OJTHEN 

2198 

DEEPC I , J)-0 

2199 

ENDIF 

2200 

WRITEC6. 55)  C1.A1.Q1 

2201 

52 

CONTINUE 

2202 

GOTO  53 

2203 

*9 

WRITEC6,31)VS 

220* 

DO  5*  1-1,20 
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2205 

C1-C(I,ID)*0.3048 

2206 

A1-A(I,ID)*0.093 

2207 

Q1M3(I.ID)*0. 02832 

2208 

deepci,id)k:(i,id)-elo 

2209 

WRITE(6,55)C1,A1,Q1 

2210 

54 

CONTINUE 

2211 

RETURN 

2212 

48 

IF (MR . LT . 1 )GOTO  56 

2213 

C 

FIND  MIN  ELEV  IN  SEGMENT 

2214 

J-13+2*NSEG 

2215 

DO  57  1N*1,NSEG 

2216 

IF(M.EQ. 1)THEN 

2217 

XM(  10*IIMM)-DATA(ISG(M) ) 

2218 

GOTO  58 

2219 

END  IF 

2220 

XM(  10*ID+M)-DATA<  ISG(M- 1 ) ) 

2221 

58 

IF( J.GT . ISG(M) )GOTO  57 

2222 

IF(DATA(J).LT.XM(10*ID+M))THEN 

2223 

XM(  10*ID+M)— DATAC J) 

2224 

END  IF 

2225 

J-J+2 

2226 

GOTO  58 

2227 

57 

CONTINUE 

2228 

DO  59  J-10*ID+1,10*ID+NSEG 

2229 

WRITE(6,60)  J 

2230 

DO  59  1-1,20 

2231 

DEEP(I,J)C(I,ID)-XM(J) 

2232 

IF (DEEP (I , J) .LT, 0 )THEN 

2233 

DEEPCI , J)— 0 

2234 

ENDIF 

2235 

WRITE(6,61)  C(I,ID),A(I,J),Q(I,J) 

2236 

59 

CONTINUE 

2237 

GOTO  53 

2238 

56 

WRITE(6,62)VS 

2239 

DO  63  1-1,20 

2240 

DEEP< I , ID )-C ( I , ID ) -ELO 

2241 

WRITE  (6,55)  C(I,ID),A(I,ID),Q(I,ID) 

2242 

63 

CONTINUE 

2243 

RETURN 

2244 

C 

COMPUTE  I  FLOW  IN  EACH  SEGMENT 

2245 

53 

DO  64  I-10*ID+1,10*ID+NSEG 

2246 

DO  64  J-1,20 

2247 

TO(J,ID)-TQ(J,ID)-K5(J,I) 

2248 

64 

CONTINUE 

2249 

DO  65  I-l.NSEG 

2250 

II-10*ID+I 

2251 

WRITE(6, 66)11 

2252 

DO  65  J-1,20 

2253 

PERQ(J,II)-Q(J.II)/TQ(J,ID) 

2254 

IF(J.EQ.l)  THEN 

2255 

PER0( J, II )-0 

2256 

ENDIF 

2257 

IF(PERQ(2, II ) . EQ, 1 . 0 )THEN 

2258 

PERQ( 1 , II )— 1 . 0 

2259 

ENDIF 

2260 

IF ( I CODE . GT . 0 ) THEN 

2261 

C(J,ID)*C(J,ID)»0.3048 

2262 

ENDIF 
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2263 

2264 

2265 

2266 

2267 

65 

2268 

2269 

2270 

62 

2271 

2272 

2273 

60 

2274 

2275 

2276 

31 

2277 

2278 

2279 

30 

2280 

2281 

2282 

61 

2283 

55 

2284 

66 

2285 

2286 

67 

2287 

70 

2288 

2289 

14 

2290 

13 

2291 

2292 

7 

2293 

2294 

2295 

C 

2296 

C 

2297 

c 

2298 

c 

2299 

2300 

c 

2301 

c 

2302 

2303 

c 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2316 

2319 

2320 

WRITER, 67)  C( J, ID) , PERQC J, II ) 

IF ( ICODE. GT.O) THEN 

C(J,ID)^:(J,ID>/0.3048 

EHDIF 

CONTINUE 

RETURN 

FCRMATCT42, 'RATING  CURVE  VALLEY  SECTION  ’ ,F5. 1/T46, 'WATER' ,T56, 
A'FLOW' ,T66, 'FLOW’/T45, 'SURFACE' ,T56, 'AREA' ,T66, 'RATE' /T46, ’ELEV' , 
&T56,’SQ  FT’,T66,’CFS’) 

FCRMATCT42, 'RATING  CURVE  FOR  SEGMENT  15 . 1/T46 , 'WATER' ,T56, 
A’FLOW'  ,T66, 'FLOW'/T45,  'SURFACE'  ,T56,  'AREA'  ,T66,  'RATE'  /T46.  ’ELEV’  , 
&T56,’SQ  FT’,T66,’CFS') 

FORMAT (T42, 'RATING  CURVE  VALLEY  SECTION' ,  F5 . 1/T46, 

& ’ WATER ’ .T56, 'FLOW' ,T66. 'FLOW' /T45. 'SURFACE' ,T56, 'AREA' , 

&T66, 'RATE' /T46, 'ELEV' ,T56, 'SQ  M' ,166, 'CMS' ) 

FQRMATCT42, ’RATING  CURVE  FOR  SEGMENT  '.I5.1/T46, 

St ' WATER ’  ,T56,  'FLOW'  ,T66,  'FLOW'  /T45,  'SURFACE'  ,T56,  ’AREA'  , 

&T66, 'RATE' /T46, 'ELEV' ,T56, 'SQ  M' , T66 , 'CMS ' ) 

FORMAT  (40X.F10 .2, 2F10 . 1 ) 

FORMAT  (40X.3F10.2) 

FORMAT  (T42 , '2  DISCHARGE  IN  SEGMENT  '.I2.1/T46, 

A'ELEV' ,T55, 'PERCENT' ) 

FQRMATC40X, F10 .2 ,2F10 .3) 

FORMAT (T 10, 'ERROR  -  NEED  FLD  PLAIN  SEG  BOTH  SIDES  OF  CHANNEL'  , 

&•  -  USING  METHOD  2'  ) 

FQRMATCT42,  ’MOMENTUM  EXCHANGE  METHOD’  ,  IX, 15.1) 

FORMATCTIO.  'NO  MOMENTUM  EXCHANGE  ROUTINE  SELECTED’ , /T10, 

USING  METHOD  2’) 

FORMATCTIO. 'NO  CHANNEL  SEGMENTS  SPECIFIED  ’,/T10, 

&  USING  METHOD  2') 

END 


SUBROUTINE  STT 


THIS  SUBROUTINE  STORES  A  DEPTH  -  FLOW  -  TRAVEL  TIME  TABLE, 

COMMON /BL0CK2/0CFSC 300 , 6) ,  DATA ( 310 ) , RAIN (300)  ,ROIN(6), 
AIEND(6),DA(6),DT(6),PEAK(6), TIME, KCODE, ICODE 

C0m0N/BLOCK3/A(20, 70)  ,0(20,70), DEEP (20 , 70 )  ,DF(20 ) , 
&SCFSC20 ) ,C(20 , 6) , DISTC6) , SEGNC6 ) , ISGC6) , PERQC20 , 70 ) , 

&TQC20 , 6) ,CC(20 ) ,LL(6) , INRC, LRC 

ID-DATA(l) 

REACH-DATAC2) 

MET1-DATAC5) 

IF (MET 1 . EQ . 0 )GO  TO  2 

DATA(3)-DATA(3)/0.30A6 

J-6 

DO  3  1-1,19 

DATA  ( J )  -DATA  ( J )  /  0 . 304  8 

DATAC J+1)-DATA( J+l )/0 . 02832 
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2321  3  J-J+3 

2322  2  XL-DATA(3) 

2323  SLOPE-DATA! *) 

232*  DIST(ID)-SLOPE+XL 

2325  J-6 

2326  DO  1  1-1,19 

2327  DP(I)— DATA(J) 

2328  SCPS( I )-DATA( J+l ) 

2329  CCCI)— DATA(J+2) 

2330  1  J-J+3 

2331  RETURN 

2332  END 

2333  C 

233*  C 

2336  C 

2337  SUBROUTINE  CMPTT 

2338  C 

2339  C  -  "  ■•■■■■  .  . . .  . . 

23*0 

23*1  C  THIS  SUBROUTINE  COMPUTES  THE  TRAVEL  TIME  AT  GIVEN 

23*2  C  DISCHARGE  RATES 

23*3  C 

23**  C  IF  MULTIPLE  ROUTING  INVOKED,  COMPUTES  TRAVEL  TIME  TABLE  FOR 

23*5  C  THE  ONE  SEGMENT  SPECIFIED  -  OTHERWISE  ALL  SEGMENTS  TOGETHER 

23*6  C 

23*7  C  NOTE  --  FOR  MULTIPLE  ROUTINE  NEED  TO  REPEAT  THIS  ROUTINE  AND  ROUTE 

23*8  C  FOR  "EACH"  SEGMENT 

23*9 

2350  C0fMDN/BLOCK2/OCFS(300.6),DATA(310),RAIN(300)  ,ROIN(6), 

2351  &IEND(6) ,DA(6) ,DT(6) , PEAK(6) , TIME.KCODE, ICODE 

2352 

2353  COmON/BLOCK3/A<20,70),Q(20,70),DEEP(20,70),DPC20), 

235*  &SCFS(20) ,C(20 ,6) ,DIST(6) ,SEGN(6) , IS6(6) ,PERQ(20 , 70) , 

2355  &TQ(20, 6) ,CC(20) ,LL(6) , INRC , LRC 

2356 

2357  DIMENSION  CFS(300> 

2358 

2359  ID-DATA(l) 

2360  REACH-DATA ( 2 ) 

2361  NOVS-DATA<3) 

2362  IFCKCODE .NE. 0 )DATA( * )-DATA( * ) /0 . 30*8 

2363  XL-DATAC*) 

236*  SLOPE-DATA(S) 

2365  DIST(ID)-SLOPE*XL 

2366  XLD36  -  XL  /  3600. 

2367  MR-DATA(6) 

2368  C  MULTIPLE  ROUTING 

2369  INRC-DATA(7) 

2370  C  RATING  CURVE  AT  TOP  OF  REACH 

2371  LRC-DATA(S) 

2372  C  RATING  CURVE  AT  DOWNSTREAM  END 

2373  C  ZERO  ARRAYS 

237*  IF(NOVS.GT.2.AND.MR.GT.O)THEN 

2375  WRITE(6,*0) 

2376  RETURN 

2377  ENDIF 

2376  DO  1  J-1,20 
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2379 

DATA  <J)-0. 

2380 

1 

CFS(J)-0. 

2381 

C 

MULTIPLE  ROUTING  COMPUTATION 

2382 

IF(ttl.LT.l)GOTO  30 

2383 

WRITE(6, 37 ) 

2384 

ID1-INRC 

2385 

GOTO  2 

2386 

30 

ID1-1 

2387 

C 

FIND  RATING  CURVE  WITH  SMALLEST  MAXIMUM  FLOW  RATE 

2388 

2 

QMINKJ(20,ID1) 

2389 

MIN-101 

2390 

GO  TO  4 

2391 

31 

ID1-LRC 

2392 

GOTO  32 

2393 

3 

ID1-ID1+1 

2394 

32 

IF  (QMIN-Q(20, ID1) )  4,4,2 

2395 

4 

IF(MR.LT. 1JG0T033 

2396 

IF(ID1  .EQ.  INROGOTO  31 

2397 

IF(ID1.EQ.LRC)G0T05 

2398 

WRITE (6, ■) 'ERROR  only  two  r. curves  allowed  for  o. routing’ 

2399 

RETURN 

2400 

33 

IF  (ID1-NOVS)  3,5,5 

2401 

5 

H 

1 

M 

2402 

LL(ID)-0 

2403 

C 

SET  SCFS  ARRAY  EQUAL  TO  Q  ARRAY  OF  LOWEST  RATING  CURVE 

2404 

DO  6  J-2,20 

2405 

SCFS(I)-0(J,MIN) 

2406 

IF(MR.LT.  1JGOTO  6 

2407 

IF ( PERQ( J . MIN ) . LT . 0 . 00 1 )THEN 

2408 

LL(ID)-LL(ID)+1 

2409 

ENDIF 

2410 

6 

I-I+l 

2411 

C 

COMPUT  END  AREA  AND  DEPTH 

2412 

DO  9  IDl-l.NOVS 

2413 

IF(MR.LT.l)  GOTO  34 

2414 

IFdDl.EQ.  1)THEN 

2415 

ID1-INRC 

2416 

GOTO  34 

2417 

ENDIF 

2418 

ID1-LRC 

2419 

34 

t^l+LLdD) 

2420 

N-2+LLdD) 

2421 

DO  36  J^l,19 

2422 

DO  7  I-N.20 

2423 

IF  (Q(I.IDl)-SCFS(J))  7.17,8 

2424 

7 

CONTINUE 

2425 

17 

DATA  (J)-A(I,ID1)+DATA(J) 

2426 

CFS( J)”DEEP( I , ID1 )+CFS( J) 

2427 

GO  TO  38 

2428 

8 

XY»(SCFS(J)-Q(I-1,ID1))/(Q(I.ID1)-Q(I-1,ID1)) 

2429 

DATA  ( J)“A(I-1 , ID1 )+XY*(A( I , ID1 ) -A( I- 1 , ID1 ) )+DATA( J) 

2430 

CFS< J)“DEEP( 1-1 , ID1 )+XY*(DEEP( I , ID1 )-DEEP(I-l , ID1 > )+CFS( J ) 

2431 

36 

CONTINUE 

2432 

IF(MR.LT.l)  GOTO  9 

2433 

IFdDl.EQ. LRCJGOTO  35 

2434 

ID1-1 

2435 

9 

CONTINUE 

2436 

35 

XNOVS-NOVS 
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2437 

2438 

2439 

2440 

19 

2441 

2442 

21 

2*43 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

24 

2456 

10 

2457 

2458 

C 

2459 

13 

2460 

2461 

2462 

14 

2463 

20 

2464 

2465 

2466 

37 

2467 

40 

2468 

2469 

C 

2470 

C 

2471 

C 

2472 

C 

2473 

2474 

C 

2475 

C 

2476 

2477 

c 

2478 

c 

2479 

c 

2480 

c 

2481 

c 

2482 

c 

2483 

c 

2484 

c 

2485 

c 

2486 

c 

2487 

2488 

2489 

2490 

2491 

2492 

2493 

2494 

IF ( I CODE . EQ . 0  )GO  TO  19 
WRITE(6,20)REACH 
GO  TO  21 

WRITE ( 6 , 13 )REACH 

ID1-MIN 

DO  10  I”M,  19 

AVAREA  -  DATA  (I)  /  XNOVS 
DP  (I)  -  CFSC I )  /  XNOVS 
S  -  AVAREA  *  XLD36 
CC(I)-S/SCFS(I) 

IF ( SCFS ( I ) . EQ . 0 )  THEN 

CC(I)-0 

ENDIF 

IF ( I CODE . EQ . 0 )GO  TO  24 
DP1-DP(I)*0.3048 
SCFS1-SCFS ( I )*0 . 02832 
WRITE( 6 . 14 )DP1 . SCFS1 ,CC ( I ) 

GO  TO  10 

WRITE(6 , 14 )DP( I ) , SCFS ( I ) ,CC( I ) 

CONTINUE 

RETURN 

FORMAT (1H0.T4 6, 'TRAVEL  TIME  TABLE'  /T54  ,  'REACH'  ,F5 . 1//T46 ,  ’WATER’  , T 
&56, ’FLOW’ .T65, ’TRAVEL’ /T46, 'DEPTH' ,T56. ’RATE’ ,T66, ’TIME’ /T46. ’FEET 
&' ,T56, ’CFS’ ,T66, ’HRS’ ) 

FORMAT  (40X,F10.2.F10.0,F10.2) 

FORMAT (1H0.T4 6. ’TRAVEL  TIME  TABLE’ /T54 , ’REACH’ ,F5 . 1//T46 , ’WATER’ ,T 
&56, ’FLOW’ .T65, ’TRAVEL’ /T46, 'DEPTH' ,T56, ’RAIE’ ,T66, ’TIME’ /T46, 
&"METER"  ,T56,  ’CMS’  ,T66,  ’HRS'  ) 

FORMAT (1HO.T24. ’MULTIPLE  ROUTING  INVOKED’) 

FORMAT(T10,  ’ONLY  TWO  RATING  CURVES  REQUIRED  FOR  MULTIPLE  ROUTING’) 
END 


SUBROUTINE  ROUTE 


THIS  SUBROUTINE  ROUTES  A  BYDROGRAPH  THROUGH  A  REACH  WITH  THE 
NEW  VSC  METHOD  OF  FLOOD  ROUTING.  THIS  METHOD  ACCOUNTS  FOR  THE 
VARIATION  IN  WATER  SURFACE  SLOPE. 

IF  MULTIPLE  ROUTING  INVOKED  -  COMPUTES  PROPORTION  INFLOW 
FOR  ONE  SEGMENT 

BUT  -  ONLY  ROUTES  ONES  SEGMENT  AT  A  TIME 

REPEAT  TRAVEL  TIME  TABLE  AND  ROUTE  C0M1ANDS  FOR  EACH  SEGMENT 
AND  ADD  OUTFLOWS 

COtiON/ BLOCK2/OCFS  ( 300 , 6 ) .  DATA ( 3 10  ) ,  RAIN ( 300 ) . ROIN ( 6 ) , 
&IEND(6) ,DA(6) , DT(6)  PEAK(6) .TIME.KCODE, ICODE 

COWON/BLOCK3  /  A(20 , 70),Q(20,70)  .DEEP  (20, 70) ,  DP  (20) , 

&SCFSC20  ) ,  C(20 . 6 ) ,  DISK  6 ) ,  SEGN(6 )  ,  ISG<  6 ) ,  PERQC20 , 70 ) , 
&TQ(20,6),CC(20),LL(6),INRC,LRC 
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2495 

2496 

DIMENSION  DOCFS(300,6) ,CFS(300) 

2497 

C 

New  variables  used 

2498 

c 

DOCFS  copy  inflow  array  (preserve  original  OCFS) 

2499 

c 

F  percentage  of  OCFS  (multiple  routing) 

2500 

c 

DTDT  copy  inflow  time  increment  (preserves  DT(IDB)) 

2501 

c 

TM  increments  DT 

2502 

ID-DATA(l) 

2503 

NHD-DATA(2) 

2504 

IDH-DATA(3) 

2505 

DT(ID)-DATA(4) 

2506 

DTDT-DT(IDH) 

2507 

DA(ID)-DAUDH) 

2508 

M“IEND(IDH) 

2509 

MR-DATA(5) 

2510 

c 

CHECK:  IF  M. ROUTING  ID.NE.IDH 

2511 

IF(MR.GT . 0 . AND . ID . EQ . IDH )THEN 

2512 

WRITE (6,*) 'ERROR  -  FOR  M. ROUTING  ID  MUST  NOT  BE  SAME  AS  IDH’ 

2513 

RETURN 

2514 

END  IF 

2515 

c 

MULTIPLE  ROUTING  INCLUDED 

2516 

c 

SET  UP  DUNMY  ARRAY 

2517 

DO  51  I-l.IEND(IDH) 

2518 

51 

DOCFS ( I . IDH )-OCFS ( I , IDH ) 

2519 

C 

MULTIPLE  ROUTING 

2520 

C 

COMPUTE  DISTRIBUTED  FLOW  IN  SEGMENT 

2521 

IF  (MR .  LT  .  1  )GOTO  50 

2522 

II-INRC/10 

2523 

NN-INRC-10*II 

2524 

IF( I CODE . GT . 0 )GOTO  53 

2525 

WRITE(6,60)NN 

2526 

GOTO  55 

2527 

53 

WRITE(6,61)NN 

2528 

55 

TM-TIME-DTDT 

2529 

JJJJ-0 

2530 

DO  52  J-l.IEND(IDH) 

2531 

TM-TM«-DTDT 

2532 

DO  56  K-2,20 

2533 

IF(DOCFS(  J,  IDH) -TQ(K,  II )  )57 , 58 , 56 

2534 

56 

CONTINUE 

2535 

WRITE(6.») 'FAILED  -  RATING  CURVE  EXCEEDED' 

2536 

RETURN 

2537 

58 

DOCFSt J, IDH)-PERQ( J, INRC)»DOCFS(J. IDH) 

2538 

GOTO  54 

2539 

57 

ST*C(K,II)-(((TQ(K,II)-DOCFS(J,IDH))*(C(K.II)-C((K-l),II)))/(TQ 

2540 

&(K, II)'TQ(K~1, II) ) ) 

2541 

P-PERQ(K.INRC)-(((C(K,II)-ST)*(PERQ(K,INRC)-PERQ((K-1), 

2542 

&INRC) ) )/(C(K,II)-C( (K-l ) , II ) ) ) 

2543 

DOCFS ( J , IDH ) -P*DOCFS ( J , IDH ) 

2544 

54 

I F  { DOCF  S  ( J ,  I DH ) .  EQ .  0 )  THEN 

2545 

JJJJ-JJJJ+1 

2546 

IF(JJJJ.EQ. IEND(IDH) )THEN 

2547 

WRITE(6, *) '  NO  FLOW  IN  SEGMENT’ 

2548 

RETURN 

2549 

END  IF 

2550 

GOTO  52 

2551 

ENDIP 

2552 

IFdCOOE.GT.  0  JTHEN 
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2553 

DOCFS(J,IDH)-DOCFS(J,IDB)*0. 0283168 

2554 

END  IF 

2555 

WRITE(6, 59)  TN,P,DOCFS(J,IDH) 

2556 

IF( ICODE . GT . 0 )THEN 

2557 

DOCFS ( J , IDH )-DOCFS ( J , IDH ) /0 . 0283 168 

2558 

END  IF 

2559 

52 

CONTINUE 

2560 

C 

IF  ID  AND  IDH  ARE  EQUAL,  ADD  1  TO  IDH 

2561 

50 

IFIMR.LT. 1)THEN 

2562 

LL(ID)-0 

2563 

END  IF 

2564 

IF  (ID-IDH)  3,1,3 

2565 

1 

IDORG-IDH 

2566 

IDH-IDH+1 

2567 

DO  2  I-l.M 

2568 

2 

DOCFS( I , IDH)-DOCFS ( I , IDH- 1 ) 

2569 

DT(IDH)-DT(IDH~1) 

2570 

PEAK(IDH)-PEAKUDH-l) 

2571 

3 

NERRT-0 

2572 

PEAK(ID)  -  1. 

2573 

RO  -  0. 

2574 

N-19 

2575 

OCFS(1.ID)-0. 

2576 

S  -  0. 

2577 

T1  -  CC(1) 

2578 

J-l 

2579 

GUES  -  1. 

2580 

CFS(l)-0. 

2581 

C 

IF  ROUTING  INTERVAL  IS  NOT  EQUAL  TO  TIME  INCREMENT  OF  INFLOW 

2582 

C 

HYDROGRAPH,  INTERPOLATE 

2583 

IF  (DT(ID)-DT(IDH) )  8,15,4 

2584 

4 

TID-DT(ID) 

2585 

TIDH-0. 

2586 

DO  7  1-2, M 

2587 

TIDH-TIDH+DT ( IDH ) 

2588 

IF  (TID-TIDH)  6,5,7 

2589 

5 

J-J+l 

2590 

CFS( J)-DOCFS(I , IDH) 

2591 

TID-TID+DT(ID) 

2592 

GO  TO  7 

2593 

6 

J-J+l 

2594 

CFS( J>— DOCFS( I-1 , IDH)+( (TID-TIDH+DT ( IDH) ) /DT( IDH} )+(DOC 

2595 

&FSCI , IDH) -DOCFS ( I~1 , IDH) ) 

2596 

TID— TID+DT ( ID  > 

2597 

7 

CONTINUE 

2598 

GO  TO  13 

2599 

8 

TIDH-0 . 

2600 

TID-DT(ID) 

2601 

DO  12  1-2, M 

2602 

TIDH-TIDH+DT (IDH) 

2603 

9 

IF  (TIDH-TID)  12,10,11 

2604 

10 

J-J+l 

2605 

CFS( J)-DOCFS( I , IDH) 

2606 

TIt^TID+DT(ID) 

2607 

IF  ( J-300 )  12,13,13 

2608 

11 

J-J+l 

2609 

CFS( J)-DOCFS( 1-1 , IDH )+( (TID-TIDH+DT ( IDH) ) /DT( IDH) )*(DOC 

2610 

&FS ( I , IDH ) -DOCFS (I-l.IDH)) 
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2611 

TID-TID+DTdD) 

2612 

IF  (J-300)  9,13,13 

2613 

12 

CONTINUE 

2614 

13 

DT(IDH)-DTdD) 

2615 

M-J 

2616 

DO  14  1-2, M 

2617 

14 

docfs<i,idh>k:fs(I) 

2618 

C 

IF  INFLOW  IS  ZERO,  SO  IS  OUTFLOW 

2619 

15 

DO  16  L-2.M 

2620 

IF  (DOCFS (L,  IDH) )  16,16,49 

2621 

16 

OCFS(L,ID)-0. 

2622 

C 

ROUTE 

2623 

49 

DATA  (L-l)  -  0. 

2624 

DO  42  I-L.300 

2625 

IF  (I-M)  18,18,17 

2626 

17 

DOCFS (I , IDH ) -DOCFS ( I - 1 , I DH ) * . 9 

2627 

18 

AVIN- ( DOCFS ( I , IDH )+DOCFS (I  -  1 . IDH ) > /2 . 

2628 

SIA  -  AVIN  +  S 

2629 

J-l 

2630 

C 

DETERMINE  DEPTH  AND  TRAVEL  TIME  OF  INFLOW 

2631 

IF  (DOCFS (I , IDH)-SCFS( 1+LL(ID) ) )  19,23,20 

2632 

19 

DI2  -  (DOCFS(I.IDH)  /  SCFS( 1+LL( ID) > )  *  DP(1+LL(ID 

2633 

TI2  -  CC(1+LL(ID)) 

2634 

GO  TO  25 

2635 

20 

JJJ-2 

2636 

IF(LL(ID).GT.O) THEN 

2637 

JJJ-LL(ID)+2 

2638 

END  IF 

2639 

DO  21  J-JJJ.N 

2640 

IF  (DOCFS ( I , IDH ) -SCFS ( J ) )  24,23,21 

2641 

21 

CONTINUE 

2642 

IF  (NERRT)  22,22,36 

2643 

22 

WRITE  (6,46) 

2644 

NERRT- 1 

2645 

GO  TO  36 

2646 

23 

DI2-DP( J) 

2647 

TI2  -  CC(J) 

2648 

GO  TO  25 

2649 

24 

RATIO(DOCFS(I,  IDH) -SCFS(  J-l ) )  /  (SC*S(  J)-SCFS(  J-l ) ) 

2650 

DI2*DP( J-l )+RATIO*(DP( J)-DP( J-! ) ) 

2651 

TI2“CC( J-l )+RATIO*(CC( J)-CC( J-l ) ) 

2652 

25 

DO  35  IT-1,10 

2653 

J-l 

2654 

C 

DETERMINE  DEPTH  AND  TRAVEL  TIME  OF  OUTFLOW 

2655 

IF  (GUES-SCFS(ltLL(ID)))  26,29,27 

2656 

26 

D02  -  (GUES  /  SCFS ( 1+LL (ID > ) ) *  DP(1+LL(ID)) 

2657 

T02  -  CC( 1+LL( ID) ) 

2658 

GO  TO  31 

2659 

27 

DO  28  J-JJJ.N 

2660 

IF  (GUES-SCFS(J))  30,29,28 

2661 

28 

CONTINUE 

2662 

J-N 

2663 

29 

D02-DP( J ) 

2664 

T02KX(  I) 

2665 

GO  TO  31 

2666 

30 

RATICMGUES-SCFS(  J-l ) ) / (SCFS(  J)-SCFS( J- 1 ) ) 

2667 

D02-DP( J-l )+RATIO*(DP( J)-DP( J-l ) ) 

2668 

T02<X  ( J- 1  )+RATIO*  (CC  ( J ) -CC  ( J- 1 ) ) 
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2669  C  FIND  WATER  SURFACE  SLOPE 

2670  31  DDD— DISTdD) / (DISTCID )+DI2-D02 ) 

2671  IF  (DDD-.01)  32,32,33 

2672  32  GUES-DOCFS(I-l,IDH) 

2673  GO  TO  35 

267*  33  T2  -  .5  *  (TI2  +  T02) 

2675  T2-T2*SQRT(DDD) 

2676  T  -  T1  +  T2 

2677  C  COMPUTE  ROUTING  COEFFICIENT 

2678  COEF  -<2.  *  DT(ID) )  /  (T+DT < ID) ) 

2679  02  -  COEF  *  SIA 

2680  TRY1  -  GUES 

2681  RATIOC2/ (GUES+ .  IE-20) 

2682  DIFF-ABS ( 1 . -RATIO ) 

2683  C  TEST  FOR  CONVERGENCE 

268*  IF  (DIFF-0.001)  37,37,3* 

2685  3*  GUES-02 

2686  35  CONTINUE 

2687  OCFS(I,ID)-DATA(I-l)*SIA 

2688  DATA(I)  -  DATA(I-l) 

2689  WRITE  (6. *7)  I.OCFS(I,ID) 

2690  GO  TO  38 

2691  36  OCFS(I,ID)-DATA(I-l)*SIA 

2692  DATA(I)  -  DATA(I-l) 

2693  GO  TO  38 

269*  37  0CFS(I,ID)-O2 

2695  DATA  <I)  -  COEF 

2696  C  COMPUTE  NEW  STORAGE 

2697  38  S  -  SIA  -  OCFS(I.ID) 

2698  T1  -  T2 

2699  RO  -  RO  +  OCFS  (I, ID) 

2700  IF  (OCFS(I.ID)  *  OCFS(I-l , ID) )  39,*0,*0 

2701  39  IFCOCFSC I , ID)  -1.)  *3, *3, *2 

2702  *0  IF(OCFS(I,ID)  -  PEAX(ID))  *2,*2,*1 

2703  *1  PEAK  (ID)  “OCFS  (I, ID) 

270*  *2  CONTINUE 

2705  1-300 

2706  *3  IEND(ID)-I 

2707  ROINCID)  -  RO*DT<ID)*3600 

2708  C  COMPUTE  I  VOLUME  OUTFLOW/VOLULE  INFLOW 

2709  IF ( IDORG . NE . 0 ) IDH-IDORG 

2710  DIFF1— ABS ( ROIN ( ID ) /ROIN ( IDH ) )*100 

2711  WRITE(6,62)ID,DIFF1, IDH 

2712  DT(IDH)”DTDT 

2713  RETURN 

271*  C 

2715  *6  FORMATdHO,  'TRAVEL  TIME  TABLE  EXCEEDED’ ) 

2716  *7  FORMATdlO,  'PROBLEM  FAILED  TO  CONVERGE  AFTER  10  ITERATIONS.  CONVERG 

2717  &ENCE  WAS  FORCED.  ’ /T20, 'OUTFLOW  NUMBER  -  ’,I*,’RATE  -’.F10.2) 

2718  60  FORMAT(1HO,T*0, 'INFLOW  FOR  SEGMENT’ ,15. 1/T30, 'HOURS’ ,T*0, 

2719  &' PERCENT ' ,T52, ’CFS' ) 

2720  61  FORMAT(1HO, T*0, 'INFLOW  FOR  SEGMENT’. 15. 1/T30, 'HOURS', 

2721  &T*0,  'PERCENT’  ,T52,  ’C'JMECS’ ) 

2722  59  FORMAT ( 2SX, F10 . 3 , 2F10 . 3 , 3F10 . 3 ) 

2723  62  FORMAT(T6,  'CHECK-  VOLUME  OF  OUTFLOW  HYDROGRAPH  ’  ,12,  '  IS’,F10.3, 

272*  S’*  OF  INFLOW  HYDROGRAPH’ ,212) 

2725  END 

2726  C 
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2727 

2728 

2729 

2730 

2731 

2732 

2733 

2734 

2735 

2736 

2737 

2738 

2739 

2740 

2741 

2742 

2743 

2744 

2745 

2746 

2747 

2748 

2749 

2750 

2751 

2752 

2753 

2754 

2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 


C 

C 

SUBROUTINE  RESVO 
C 

C  THIS  SUBROUTINE  ROUTES  A  HYDROGRAPH  THROUGH  A  RESERVOIR  WITH  THE 
C  STORAGE-INDICATION  METHOD. 

CCMMON/BLOCX2 /OCFS ( 300 , 6 ) , DATA ( 3 10 ) , RAIN ( 300 j , ROIN ( 6 ) , 

&IEND(6) ,DA{6),DT(6>,PEAK(6),TIME,KCODE,ICODE 

CCMCN/BLOCK3/A(20,70),Q(20,70)  , DEEPC20 , 70) , DP(20 ) . 

&SCFSC20 ) ,C(20 , 6) ,DIST(6) , SEGN (6 ) , ISG£6) , PERQ(20 , 70 ) , 
&TQ(20,6).CC(20),LL(6),INRC,LRC 

ID-DATA ( 1 ) 

NHD-DATA(2) 

IDH-DATA(3) 

NERES-0 

DT(ID)-DTUDH) 

RO  -  0. 

DAdD)-DA(IDH) 

PEAK(ID)  -  1. 

J-l 

1-4 

C  REMAINING  DATA  ARE  FLOW  AND  STORAGE  VALUES 

IF(KCODE.EQ.O)GO  TO  25 
DATA(I)-DATA(I)/0. 02832 
DATA( 1+1 )-DATA( 1+1 ) / 1 . 21968 

25  SCFS(J)— DATA(I) 

STOREl-DATA(I+l)*12.1 
STORE-STORE 1 

C  COMPUTE  STORAGE  COEFFICIEN  ARRAY  C 

1  CC(J)-(SCFS(J)/2. )+( STORE /DT (ID) ) 

I-I+2 

J-J+l 

IF  ^-20)  2,2,3 

2  IFCKCODE . EQ . 0 )GO  TO  26 

DATA( I )”DATA( I ) /0 . 02832 
DATA(I+1)-DATA(I+1)/ 1.21968 

26  SCFS(J)-DATAd) 

STORE”DATA(I+l )*12 . 1 

IF  (SCFS(J)-.OOl)  3,3,1 

3  N-J-l 

OCFS ( 1 , ID)-0 . 

S-STOREl/DTdD) 

C  ROUTE 

DO  15  1-2,150 
IF  (I-IENDdDH) )  5,5,4 

4  OCFSd ,  IDH)-0 . 0 

5  AVIN- (OCFSd  ,  IDH )+OCFS(I  - 1 , 1 DH )  )  / 2  . 

SIA-S+AVIN 

C  DETERMINE  PROPER  C 

DO  6  J-l ,N 

IF  (SIA-CC(J))  10,9,6 

6  CONTINUE 
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2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 

2825 

2826 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 


IF  (NIXES)  7,7,8 

7  WRITE  (6,19) 

NERES-1 

8  RESC«SCFS(N)/CC(N) 

C  COMPUT  OUTFLOW 

OCFS ( I , ID )-RESC*SIA 
GO  TO  11 

9  OCFS ( I , ID )-SCFS ( J ) 

GO  TO  11 

10  OCFS(I,ID)-SCFS(J-l)+((SIA-CC(J-l))/(CC(J)-CC(J 
&  -1)))*(SCFS(J)-SCFS(J-1)) 

C  DETERMINE  NEW  STORAGE 

11  S-SIA-OCFS(I,ID) 

RO  -  RO  +  OCFS { I , ID) 

IF  (OCFS( I , ID)-OCFS( 1-1 , ID) )  12,13,13 

12  IF  (OCFS(I.ID)-l. )  16,16,15 

13  IF(OCFSd.ID)  -  PEAK(ID))  15,15,14 

14  PEAK(ID)  -  OCFS(I.ID) 

15  CONTINUE 
1-150 

16  IEND(ID)-I 

ROIN(ID)  -  RO  *  DT(ID)*3600 
RETURN 
C 

19  FORMAT  ( 1H0 , 33HSTORAGE-DISCHARGE  TABLE  EXCEEDED.) 

END 

C 

c 

c 

SUBROUTINE  ERROR 
C 

C  This  subroutine  determines  the  error  standard  deviation  and  the  peak  flow 
C  error  for  2  hydrographa  (original  program  retained). 

C  Assumes  that  measured  is  ID1 

C  In  addition,  10  other  measures  of  goodness  of  fit  are  calculated. 

C  All  indicias  are  printed  out  in  metric  units. 

COMMON/ BL0CK2 /OCFS (300 ,6) , DATA(310) ,RAIN(300) ,ROIN(6) . 

&IEND(6 ) ,DA(6) ,DT(6 ) , PEAX(6) .TIME , KCODE , ICODE 

real  CFS(300) 

IDl-D..fA(  1 ) 

ID2-DATA(2) 

SSE-0. 

WRITE (6, 21) 

21  FORMAT (1H0,T33, 'TIME' ,T55, ’FLOW  l',T76, 

&  'FLOW  2’ ,T95, 'ERROR’/T34, 

&  'HRS’ ,T57, 'CMS' ,T78, 'CMS' ,T97, 'CMS' ) 

22  J-l 

C  If  the  time  increments  are  not  equal,  interpolate. 


1 


IF  (DT( ID1 )-DT(ID2) )  1,8,2 

L-ID1 

K-ID2 
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2843 

2844 
2843 
2848 
284  7 

2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 
2861 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2881 
2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 

2890 

2891 

2892 

2893 

2894 

2895 

2896 

2897 

2898 

2899 

2900 


GO  TO  3 

2  L-ID2 
K-ID1 

3  ^IEND(L) 

TID-DT(K) 

TIDH-0 . 

DO  6  1-2, M 
TIDH-TIDH+DT ( L ) 

IF  (TID-TIDH)  5,4,6 

4  J-J+l 
CFS(J)-OCFS(I,L) 

TID-TID+DKK) 

GO  TO  6 

5  J-J+l 

CFSC J)-OCFS( I“1 , L)+( (TID-TIDH+DT(L) ) /DT(L) )*COCFS (I , L) -OCFSC 1-1 , L ) 
&) 

TID-TID+DKK) 

6  CONTINUE 
IEND(L)-J 
DT(L)-DT(K) 

DO  7  1-2, J 

7  OCFS(I,L)-CFS(I) 

8  IF  (IEND(ID1)-IEND(ID2) )  9,9,10 

9  M-IEND(IDl) 

GO  TO  11 

10  M-IENDUD2) 

U  T2-TIHE 

IF  (KCODE.EQ.O)THEN 
DO  997  I-l.M 

OCFSCI , ID1 )-OCFS(I , ID1 )* . 02832 
997  OCFS(I,ID2)-OCFS(I,ID2)». 02832 

ENDIF 


C  Determine  error  -  original  method 


DO  12  I-l.M 

ERR-OCFS ( I , ID1 ) -OCFS ( I , ID2 ) 

WRITE(6 , 16 )T2 ,OCFS( I , ID1) ,0CFS ( I , ID2 ) ,ERR 
16  FORMAT  (6X.F12 . 3 , 3F12 . 0 ) 

25  T2-T2+DKID1) 


C  Sum  of  squares  of  error 


12  SSE-SSE+ERR+ERR 
XM-M 


C  Error  variance 

EVAR-SSE/XM 

C  Error  standard  deviation 

ESDEV-SQRT  ( EVAR ) 

C  Percent  error  for  peak  discharge 
ERPK-ABS(PEAK(ID1)-PEAK(ID2) ) 


Jl 
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2901  PCTER-(ERFK/PEAK(ID1))*100. 

2902 

2903  C  Other  goodness  of  fit  calculations... 

290  * 

2905  SUM01-0. 

2906  SUMO-O . 

2907  SUMl-0 . 

2908  SUM2-0. 

2909  SUM3-0 . 

2910  SUMS-0. 

2911  SUM5-0 . 

2912  SUM6-0 . 

2913  SUM7-0 . 

291*  SUM8-0. 

2915  SUM9-0. 

2916  SUM10-0. 

2917  SUM11-0. 

2918  SUM12-0. 

2919 

2920  DO  77  I-l.M 

2921  ERR“OCFS( I , ID1 )-OCFS( I , ID2 ) 

2922  IF(OCFS(I,lDl) .EQ. 0 . 0 . AND ,OCFS( I , ID2) .NE.0.0)THEN 

2923  LOGERR-ALOG(OCFS(I.ID2)) 

292*  ELSE  IF (OCFS(I ,  ID1 )  .NE  .  0 . 0  .  AND  ,OCFS{  I , ID2) .EQ. 0 . 05THEN 

2925  LOGERR- ALOG ( OCFS ( I , I D 1 ) ) 

2926  ELSE  IF (OCFS(  I ,  ID1 )  .EQ.  0 . 0 .  AND.OCFSd ,  ID2)  .EQ.  0 . 0)THEN 

2927  LOGERR-O . 

2928  ELSE 

2929  LOGERR-ALOG ( OCFS ( I .  ID1 ) )  -ALOG(OCFS(I ,  ID2) ) 

2930  ENDIF 

2931  SUH0-OCFS(  I ,  IDD+SUM0 

2932  SUM01-OCFS(I,ID2)+SUM01 

2933  SUM1-ERR+SUM1 

293*  SUM2-ERR**2+SUM2 

2935  SUM3-LOGERR**2+SUM3 

2936  IF (OCFS ( I , ID1 ) . EQ . 0 . )OCFS( I , ID1 )-l . 

2937  SUM*-((ERR/OCFS(I.IDl))**2)+SUM* 

2938  77  CONTINUE 

2939 

29*0  DO  13  1-2, M 

29*1  DIFFl-OCFS( I , IDl)-OCFS(I-l , ID1 ) 

29*2  DIFF2-OCFS (I , ID2) -OCFS ( I - 1 , ID2 ) 

29*3  SUM5-( (DIFF1-DIFF2)**2)+SUM5 

29**  SUM7-DIFF1+SUM7 

29*5  IF(DIFF1.EQ.0. 1DIFF1-1. 

29*6  SUM6-(((DIFF1-DIFF2)/DIFF1)*»2)+SUM6 

29*7  13  CONTINUE 

29*8 

29*9 

2950  SIFMEAN-SUM01/M 

2951  OBSMEAN-SUMO/M 

2952  DIFFW1-SUM7/M 

2953 

295*  DO  1*  1-2, M 

2955  SUH8-C ( (OCFS ( I , ID1 )-OCFS( 1-1 , ID1 ) ) -DIFFM1)**2)+SUM8 

2956  SUM9-( ( ( (OCFS (I , ID1 )-OCFS( 1-1 , ID1) l/DIFFMl )-l )**2)+SUM9 

2957  1*  CONTINUE 

2958 
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2939 

DO  73  I-l.M 

2960 

SUM10- ( (OCFS ( I ,  ID  1 )  -OBSMEAN ) **2 )  +SUM10 

2961 

SUM1 1-(  ( (OCFS  ( I ,  ID1 ) /OBSMEAN )- 1 ) 

*«2)+SUMll 

2962 

SUM12- ( (OCFS  ( I ,  ID2 ) -SI>«EAN )  **2 ) +SUM12 

2963 

73 

CONTINUE 

2964 

2963 

SD^SQRT  (SUM10/ (M- 1 ) ) 

2966 

SDS-SQRT ( SUM12 / (M- 1 ) ) 

2967 

2968 

DO  115  I-l.M 

2969 

115 

SUM13- ( (OCFS (I . ID1 ) -OBSMEAN ) /SDM) * ( ( OCFS ( I . ID2 ) - 

2970 

&  SIM4EAN) /SDS)+SUM13 

2971 

2972 

2973 

OF1-SUM1 

2974 

OF2-SUM2 

2975 

OF3-SUM3 

2976 

OF4-SUM4 

2977 

OF5-SUM5 

2978 

OF6-SUM6 

2979 

OF7-SUM2/SUM10 

2980 

OF8-SUM4/SUM11 

2981 

OF9-SUM5  /  SUMS 

2982 

OF10-SUM6/SUM9 

2983 

AM-M 

2984 

0F11«(1./AM)*SUM13 

2985 

2986 

2987 

95 

WRITE(6, 95) 

2988 

WRITE(6, 50) 

2989 

2990 

2991 

50 

FORMAT (1 5X ,  '  MEASURES  OF  FIT  '//) 

WRITE(6. 91 ) 

2992 

WRITE(6, 51)0F1 

2993 

51 

FORMAT (10X,  'SUM  OF  ERRORS 

' ,F20, 5) 

2994 

WRITE(6.52)OF2 

2995 

52 

FORMATdOX,  'OLSQ 

* , F20 . 5) 

2996 

WRITE(6, 53)OF3 

2997 

53 

FORMATdOX,  ’LOG  LSQ 

’ ,F20. 5) 

2998 

WRITE(6 , 54 )OF4 

2999 

54 

FORMATdOX,  'RELATIVE  ERROR 

’ , F20 . 5) 

3000 

WRITE (6. 55 )OF 5 

3001 

55 

FORMATdOX,  'ABS  ERROR  -  DIFF 

• ,F20 . 5' 

3002 

WRITE(6,56)OF6 

3003 

56 

FORMATdOX, 'REL  ERROR  -  DIFF 

' , F20 . 5) 

3004 

WRITE(6,57)OF7 

3005 

57 

FORMATdOX, 'ABS  ERROR/VAR 

’ , F20 . 5) 

3006 

WRITE( 6 , 58 )OF8 

3007 

58 

FORMATdOX,  ’REL  ERROR/VAR 

' ,F20 . 5) 

3006 

WRITE(6,59)OF9 

3009 

59 

FORMATdOX, 'ABS  ERROR(dlf f ) /VAR 

’ , F20 . 5) 

3010 

WRITE(6,80)OF10 

3011 

60 

FORMATdOX, 'REL  ERROR(dlff  >/VAR 

' , F20 . 5) 

3012 

WRITE(6 , 61 )0F11 

3013 

61 

FORMATdOX, 'PEARSONS  r 

' , F20. 5) 

3014 

WRITE(6, 92)ESDEV 

3015 

92 

FORMATdOX, 'ERR  STANDARD  DEV 

’ ,F20. 5) 

3016 

WRITE (6,93) PCTER 
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3017 

3018 

3019 

3020 

3021 

3022 

3023 

3024 

3025 

3026 

3027 

3028 

3029 

3030 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

3057 

3058 

3059 

3060 

3061 

3062 

3063 

3064 

3065 

3066 

3067 

3068 

3069 

3070 

3071 

3072 

3073 

3074 


93  FORMATUOX,  'PEAK  Q  ERROR  \F20.5) 

WRITE<6,96) 

96  FORMATUOX,’ . — - - - - - ) 

WRITE  (6,98) 

98  FORMAT  ( //10X, ’NOTE :  All  indicies  are  in  metric  units') 

IF  (KCODE.EQ.O)THEN 
DO  9969  I-1,M 

OCFS ( I ,  ID1  )<CFS ( I ,  ID1 )  /  .  02832 
9969  OCFS(I,ID2)KX:FS(I,ID2)/. 02832 

END  IF 

RETURN 

C 

END 

C 

C 

c 

SUBROUTINE  SEDT 
C 

C  THIS  SUBROUTINE  COMPUTES  THE  SEDIMENT  YIELD  FOR  A  FLOOD 

CO»«N/BLOCK2/OCFS<300,6)  ,DATA(310)  ,RAIN(300 )  ,ROIN(6) , 

&IEND  ( 6 ) ,  DA (  6  )  .  DT  ( 6 ) ,  PEAK ( 6 ) ,  TIME ,  KCODE .  ICODE 

ID-DATA ( 1 ) 

SOIL-DATAC2) 

CROP— DATA ( 3 ) 

CP-DATAC4) 

SL-DATA(5) 

WRITE(6, *) ' **  CHECK  THIS  IS  CORRECT  AREA’ , DA(ID) 

WRITE (6,*) 'ESPECIALLY  IF  MULTIPLE  ROUTING  UTILIZED' 

C  COMPUTE  SEDIMENT  YIELD 

X-ROIN(ID)*DA(ID)*53 . 3 33* PEAK (ID) 

SED-95 . *X** . 56*SOIL*CROP*CP*SL 
IFdCODE  .  EQ.  0  )GO  TO  5 
SED1-SED*0.9072 
WRITE! 6, 65SED1 
GO  TO  2 

5  WRITE  (6,3)  SED 

2  RETURN 

3  FORMAT  (10X,  'SEDIMENT  YIELD  -  F10.1.  ’  TONS') 

6  FORMATUOX, "SEDIMENT  YIELD-"  ,F  10 . 1 ,  "METRIC  TON") 

END 

C 

C 

c 

BLOCK  DATA 
C 

c  . I...  .1  III . .Ml.  ... 

C  BLOCK  DATA  SUBPROGRAM  UZED  TO  INITIALIZE  ZALPHA , CTBLE , ITBLE 
C  AND  NCOM. 


204 


3075 

3076  CCPWON  /  BLOCK  1/CTBLE(  50 , 11 ) ,  ITBLE(  50,2),  ZALPBA(20) . 

3077  fiMAXNO ,  NCODE ,  ICC ,  NCOfrU 

3078  DATA  ZALPBA/ 1H1 , 1H2 , 1H3 , 1B4 , 1H5 , 1H6 , 1H7 , 1H8 , IB9 , 1B0 , 1H  , 

3079  &1B*.1B. .IB, .1B-.1B  , IB  .IB  , IB  , IB  / 

3080 

3081  DATA  NCC8W/15/ 

3082 

3083  DATA  CTBLE/ IBS , IBS , 1BC , IBP. IBP , 1HA, IBS , 1BC, IBS , 1BC . 1BR, 

3084  &1BR , 1HE , IBS , 1BF , 35*1B  , 

3085  &1BT , 1HT , 1BO , 1BR , 1BL , 1BD , 1BT , 1HO , 1HT , 1BO , 1HO , 1BO , 1HR , 

3086  &1BE , 1BI , 35*1B  , 

3087  &2BAR , 2BOR , 2BMP , 2BIH , 2BOT , 2BD  , 2BOR , 2BMP , 2BOR , 28MP , 


3088 

&2HUT  ,  2HUT ,  2HRO,  2BDI ,  2HHI 

, 35*2B  . 

3089 

&2BT 

,2BE  .2BUT.2BT  , 2B  B.2HBY.2BE  , 2BUT , 2HE  ,2HUT, 

3090 

&2HE 

, 2BE  ,2HR  ,2BME,2BSB,35»2H  . 

3091 

&2B 

.2BHY.2BE  , 2BBY , 2BYD , 2BD  .2HRA.2BE  .2HTR.2BE  , 

3092 

&2H 

, 2BRE , 2BAN , 2BNT , 2B 

, 35*2B  . 

3093 

&2B 

. 2BD  .2BHY.2HD  ,2B 

,2B  , 2BTI , 2HRA, 2BAV, 2BTR, 

3094 

&2B 

.2BSE.2HAL.2H  Y,2B 

,35*2B  . 

3095 

&2H 

,2B  , 2BD  , 2B  ,2B 

, 2B  . 2HHG , 2BTI , 2BEL , 2BAV, 

3096 

&2B 

, 2BRV , 2BYS , 2B1E , 2B 

, 35*2B  , 

3097 

&6*2B 

, 2B  C.2BNG.2B  T.2HEL.2B  , 2BOI , 2BIS, 2BLD, 36*2B 

3098 

&6*2B 

. 2BUR.2B  C.2BIM.2B 

T,2B  , 2BR  ,38*2B  , 

3099  &6*2B  .2BVE.2BUX.2SE  ,2BIM,40*2B  . 

3100  &7*2B  .2HVE.2H  , 2BE  ,40*2B  / 

3101 

3102  DATA  ITBLE/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,35*18  . 

3103  &3, 310, 310, 4, 2, 4, 100, 310, 100, 8, 7, 25, 2, 5, 0,3 5* IB  / 

3104  END 
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